Private Function HexOf(ByVal AscNum As Integer) As String
   ' Return the 2 character Hex string of AscNum, prefix extra "0" if necessary
   Dim TStr
   If AscNum > 255 Then AscNum = AscNum Mod 256
   TStr = Hex(AscNum)  ' Convert to Hex
   If Len(TStr) = 1 Then
      ' Attach "0" on the left
      TStr = "0" & TStr
   End If
   HexOf = TStr  ' Return the 2 character Hex string
End Function

Function HexDisplayTopLineOfFile(TFileName) As String
' Display the content of a text file in Hex format like:
   ' FF FE 54 00 B0 01 DB 1E 63 00
   Dim Text1, Text2, MyChar, FileNum
   FileNum = FreeFile  ' Obtain a File handle from the OS
   Open TFileName For Binary As #FileNum  ' Open given Text file as binary
   ' Read all characters in the file.
   Do While Not EOF(FileNum)
      Line Input #FileNum, MyChar ' Read a line as raw binary
      If MyChar <> "" Then
         ' Convert byte to Hex like 0A, 6B etc..
         Text1 = Text1 & MyChar & " "
      Exit Do
      End If
   Loop
   Close #FileNum  ' Close file
   
   
   For i = 1 To Len(Text1)
        Text2 = Text2 & HexOf(Asc(Mid(Text1, i, 1)))
   Next
   
   HexDisplayTopLineOfFile = Text2  ' Return the Hex display string
End Function


Private Sub Form_Load()

MsgBox HexDisplayTopLineOfFile(App.Path & "\playsega.jpg")
End

End Sub