Для того, что бы узнать код символа, применяется функция asc(строка), для того, чтобы преобразовать цифру в текст str(число), для того, что бы получить по коду символ chr(код символа).
для взятия символа из строуки функция
MID(строка, начиная с имвола, количесво символов)
Ну вот пример показа десятичных кодов символов строки:
- Код: Выделить всё
sub pr(s as string)
s1=""
for i=1 to len(s)
s1=s1+mid(s,i,1) + "="+chr(asc(mid(s,i,1)))+" "
next i
msgbox s1
end sub