Try
            ' Create an instance of StreamReader to read from a file.
            Dim sr As StreamReader = New StreamReader(Me.txtPAth.Text)
            Dim line As String
            ' Read and display the lines from the file until the end 
            ' of the file is reached.
            Do
                line = sr.ReadLine()
                'Console.WriteLine(line)
            Loop Until line Is Nothing
            sr.Close()
        Catch Ex As Exception
            MsgBox(Ex.Message, MsgBoxStyle.Critical, "The file could not be" & _
              "read:")
        End Try

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten