Модуль Excel VB Text to Hex

Question

Мне нужно преобразовать текст в шестнадцатеричные коды в excel, если это возможно. Текст что-то вроде этого:

Тест текст 

и мне нужно, чтобы получить очки код без пробелов, как это:

0422043504410442002004420435043A044104420020 

Может кто-нибудь мне помочь? Спасибо. Я могу сделать это в php или java, но не могу обернуть голову вокруг этого в VB.

Answer 1

Найдено ответ на линии:

Function Uni2Hex(Txt As String) As String 
Dim n As Long 
    For n = 1 To Len(Txt) 
     Uni2Hex = Uni2Hex & Right("000" & hex(AscW(Mid(Txt, n, 1))), 4) 
    Next n 
End Function