ник: Анатолий (Киев)
Lukas, ну тогда уж вместо:
For i = Len(s) To 1 Step -1
Select Case Asc(Mid(s, i))
...
|
попробуйте:
Dim arr() As Byte
arr = StrConv(s, vbFromUnicode) 'Получаем массив байтов.
For i = Ubound(arr) To 1 Step -1
Select Case arr(i - 1)
...
|