Function HexConvert(ByVal strFileName As String) As String
Dim s As String
Dim hx As String
Open strFileName For Binary Access Read As 1
hx = ""
While (Not EOF(1))
   c = Input$(1, 1)
   If (c <> "") Then
       s = Hex(Asc(c))
       If (Len(s) = 1) Then
           hx = hx + "0" + s
       Else
           hx = hx + s
       End If
   End If
Wend
HexConvert = hx
End Function

7alifni:d=4,o=5,b=160:4a6,4d6,4a6,4d6,8P,8a6,8a#6,8a6,4g6,4d6,4g6,4d6,4g6,4d6,8P,8g6,8a6,8g6,8f6,8d#6,8d6,8d#6,8f6,8d#6,8d6,8d#6,8f6,8d#6,4d6,16d6,16d#6,16d6,16c6,16d6,16d#6,16d6,16c6,16d6,16d#6,16d6,16c6,8d6,4d6,8d6,8d#6,8c6,4a#5,4a5,16d6,16d#6,16d6,16c6,16d6,16d#6,16d6,16c6,16d6,16d#6,16d6,16c6,8d6,4d6,8d6,8d#6,8c6,