Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim line As String
            Dim readFile As System.IO.TextReader = New _
				StreamReader("C:\TextReader.txt")
            While True
                line = readFile.ReadLine()
                If line Is Nothing Then
                    Exit While
                Else
                    MsgBox(line)
                End If
            End While
            readFile.Close()
            readFile = Nothing
        Catch ex As IOException
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class