Highlight Foreign Characters

Hi everyone new guy here, I just want to ask if there's a way I can highlight all the foreign characters like Japanese, Chinese character etc... ?



Thank you in advance..

Based on a UDF i picked up on here (can't find the thread anymore):

Function MultibyteChecker(txt As String) As Boolean
    Dim aB() As Byte
    Dim n As Long
    aB = txt
    For n = LBound(aB) + 1 To UBound(aB) Step 2
        If aB(n) <> 0 Then
            MultibyteChecker = True
            Exit Function
        End If
    Next n
End Function

Originally Posted by WHER

Based on a UDF i picked up on here (can't find the thread anymore):

Function MultibyteChecker(txt As String) As Boolean
    Dim aB() As Byte
    Dim n As Long
    aB = txt
    For n = LBound(aB) + 1 To UBound(aB) Step 2
        If aB(n) <> 0 Then
            MultibyteChecker = True
            Exit Function
        End If
    Next n
End Function

This one works.. Thank you all very much for your help! Very much appreciated