Преобразование строки в шестнадцатиричном представлении - VB

Формулировка задачи:

в файле *.reg есть строка: "ProfileImagePath"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,44,00,72, 00,69,00,76,00,65,00,25,00,5c,00,44,00,6f,00,63,00,75,00,6d,00,65,00,6e,00, 74,00,73,00,20,00,61,00,6e,00,64,00,20,00,53,00,65,00,74,00,74,00,69,00,6e, 00,67,00,73,00,5c,00,10,04,34,04,3c,04,38,04,3d,04,38,04,41,04,42,04,40,04, 30,04,42,04,3e,04,40,04,00,00 которая на самом деле является шестнадцатиричным представлением строки: %SystemDrive%Documents and SettingsАдминистратор Как преобразовать в строку?

Решение задачи: «Преобразование строки в шестнадцатиричном представлении»

textual
                            Листинг программы 
                        

                            Dim str As String
Dim n As Integer
 
str = "&H" + Text1.Text
n = Val(str)
Text2.Text = n
                        