Public Function string2shar(strParam As String)
Dim i As Integer
Dim intStep As Integer
Dim U() As Byte
intStep = Len("A")
U() = StrConv(strParam, vbFromUnicode)
For i = UBound(U) To 0 Step intStep * (-1)
Debug.Print i, U(i), Chr((U(i)))
Next
End Function
Public Sub tst1()
Dim s$
s = "РусLat123"
string2shar s
End Sub
|