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:\Test1.txt")

            line = readFile.ReadToEnd()

            MsgBox(line)

            readFile.Close()

            readFile = Nothing

        Catch ex As IOException

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class