Dim sFile As String = "d:\temp\test.txt"
    Dim oFile As New IO.FileInfo(sFile)
    Dim oStream As IO.StreamReader
    Dim sBuffer As String
 
    If oFile.Exists() = True Then
      oStream = New IO.StreamReader(sFile)
      ' Datei auslesen und in TextBox anzeigen
      sBuffer = oStream.ReadToEnd()
      TextBox1.Text = sBuffer
      oStream.Close()
    End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de