Private Function ReadFile(ByVal strFileName As String)
   Dim intHandle As Integer   ' Dateinummer (FileHandle)
   Dim strAllText As String   ' der gesamte Dateiinhalt
 
   intHandle = FreeFile
   Open strFileName For Binary As #intHandle
   strAllText = Space(LOF(intHandle))
   Get #intHandle, , strAllText
   Close #intHandle
   Debug.Print strAllText
 
   ReadFile = strAllText
End Function

 
Dim Textdatei As IO.StreamReader = IO.File.OpenText(Datei)
 
    Dim Zeile As String = Textdatei.ReadLine
    While Not Zeile Is Nothing
      [...]
      Zeile = Textdatei.ReadLine
    End While

Dim SR As IO.StreamReader