Dim fsi As New IO.FileStream(pfad, IO.FileMode.Open, _
          IO.FileAccess.Read, IO.FileShare.ReadWrite)
        Dim sr As New IO.StreamReader(fsi, System.Text.Encoding.Default)
        Dim inhalt As String = sr.ReadToEnd()
        sr.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist