Dim F As Integer
  Dim FileLaenge As Long
  Dim I As Long, Position As Long
  Dim Zeichen1 As Long
 
  F = FreeFile
  Open "c:\Test.doc" For Binary Access Read As F
 
  ' Für die Datei einfach Winword öffnen, etwas Text eingeben und unter 
  ' C:\Test.doc speichern.
  FileLaenge = FileLen("C:\Test.doc")
  Do While Not EOF(F)
    For I = 1 To FileLaenge
      Zeichen1 = AscB(Input(I, F))
      ' das gibt die aktuelle Position aus (2, 4, 7, 11.....)
      Position = Seek(F)
      Text1.Text = Text1.Text & " " & Format$(Hex(Zeichen1), "00")
      If I Mod 16 = 0 Then
        Text1.Text = Text1.Text & Chr$(10) & Chr$(13)
      End If
    Next I
  Loop
  Close 1