Маленькая программа перевода чисел и подсчёта - VB

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

Программа должна получиться не сложная, но проблема в том, что я начинающий пользователь Basic и не до конца знаю все команды. Именно по этому прошу у вас помощи с кодом программы. Перед подсчётом вот нужно сделать ещё перевод из 16-ой системы в 10-ую, а затем на оборот. В общем, просто не наю как это сделать

Текстовый файл содержит одну строку, в которой записаны два 16-ричных числа, разделенных пробелом. Написать программу, которая считывает эти числа и перемножает их. Оба сомножителя и результат выводится на экран.

Решение задачи: «Маленькая программа перевода чисел и подсчёта»

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

                            Private Sub Command1_Click()
Dim s As String
Dim arr() As String
Dim mul As Long
Dim a As Long, b As Long
 
'text.txt ~ FC57 2A0E
Open App.Path & "/text.txt" For Input As #1
Input #1, s
Close #1
 
arr = Split(s, " ")
 
a = "&H" & arr(0)
b = "&H" & arr(1)
mul = a * b
 
MsgBox arr(0) & "( " & a & " )" & vbCrLf & arr(1) & "( " & b & " )" & vbCrLf _
& Hex(mul) & "( " & a * b & " )"
 
End Sub
                        