<code>Dim F As Integer
Dim sFilename As String
Dim sChar As String * 1  <font color=green>' Wichtig: mit Länge 1 
' deklarieren</font>
 
sFilename = "DeineDatei.txt"
 
F = FreeFile
Open sFilename For Binary As #F
While Not EOF(F)
  Get #F, , sChar
Wend
Close #F</code>