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