Hex перекодировка

[young]

Есть коды символов в шестнадцатиричной системе... То есть по типу:
203d..... и т.д. Вот задача, написать программу, что-бы в одно поле Text вводили эти самые коды, а в другом получали перевод.
А какой функцией этого добиться? Голова овета не даёт
Помогите уж....

[Kostyan]

Код: Выделить всё

Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text) Step 2
  Text2.Text = Text2.Text & Chr$(Val("&H" & Mid$(Text1.Text, i, 2)))
Next
End Sub


Вводить HEX-значения символов в первое поле нужно по 2 цифры, т.е. если символ означается цифрой F, то вводить нужно 0F.

[young]

Спасибо большое! Сам бы не допёр