**Why I Can't use Thai keyboard for this web board**
I Have a Code for change text to Date But it error when data is Null
please edit code when error (I'm Beginner Access)

..........................................................

Function TxtToDate(strDate As String)
        Dim ConvDate As Date
               ConvDate = DateSerial(Left(strDate, 4) - 543, Mid(strDate, 5, 2), right(strDate, 2))
        TxtToDate = ConvDate
End Function
..................................................

Thank you so much