by Sanjay Kashyap (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 4th March 2002
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
check double byte character
Dim INTLOOP%
If vText <> "" Then
For INTLOOP = 1 To Len(vText)
If Not (Asc(Mid(vText, INTLOOP, 1)) <= 256 And Asc(Mid(vText, INTLOOP, 1)) > 0) Then IsJapChar = True: Exit Function
Next
End If
End Function