ник: Дядя Федор
Уже ближе.
Public Function string2shar(strParam As String)
Dim i As Integer
Dim intStep As Integer
Dim U() As Byte
intStep = LenB("A")
U() = strParam
For i = UBound(U) - 1 To 0 Step intStep * (-1)
Debug.Print i, Chr((U(i)))
'здесь можно проверку на качественность символа и выход из цикла отрезав по нужный символ
Next
End Function
Public Sub tst1()
Dim s$
s = "РусLat123"
string2shar (s)
End Sub
|
Результаты
16 3
14 2
12 1
10 t
8 a
6 L
4 A
2 C
0
16 3
Т.е. надо анализировать все байты, т.к. 4-6 - латин
0-2 - рус (UNICODE?)
СМ. ВЛОЖЕНИЕ.