Private Sub ReadBinaryFile(filename As String)
 
  Dim i&, sBytes$, Lst$()
 
  Open (filename) For Binary As #1
    sBytes = Space$(LOF(1))
    Get #1, , sBytes
  Close #1
  Lst = Split(sBytes, Chr$(0))
  For i = 0 To UBound(Lst)
    MsgBox Lst(i)
  Next i
 
End Sub

Gruss,

Zardoz