• Home
 · 
• Miscellaneous
 · 
• check double byte character

check double byte character

check double byte character

Rate check double byte character

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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