Sub CheckOfCharacters()
    Dim i As Integer, str As String
str = ActiveCell.Value
Debug.Print ActiveCell.Font.Name
For i = 1 To Len(str)
    Debug.Print Mid(str, i, 1) & "  =  " & Asc(Mid(str, i, 1)) & vbLf & _
                Mid(str, i, 1) & "  =  " & AscW(Mid(str, i, 1))
Next
End Sub