Label1.caption =
LeNB (StrConv (TEXT1.TEXT, VBFROMUNICODE)) If you use the Len function, the number of characters is taken. E.g:
Dim Str As String
Str = 'China China1'
LEN (STR) = 8
Lenb (Str, Vbfromunicode) = 10
That is, Chinese characters are two bytes