Dim Reader As StreamReader
        Dim FileIn As FileStream
        Dim sDateiName As String = "\TextFile1.txt"
        Dim iInx As Integer
 
        FileIn = New FileStream(Application.StartupPath & sDateiName, _
          FileMode.Open)
        Reader = New StreamReader(FileIn)
 
        While Reader.Peek <> -1
            theText += Reader.ReadLine + vbCrLf
        End While