How to Open a Text File in VB .NET

    Private Sub btn_run_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_run.Click
        
        Dim FILE_NAME As String = "d:/zer0/vb.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objReader As New System.IO.StreamReader(FILE_NAME, System.Text.Encoding.GetEncoding("GB2312"))
            'Dim objReader As New System.IO.StreamReader(FILE_NAME) 如果不转换中文不能正常显示
            MsgBox(objReader.ReadToEnd)
            objReader.Close()
        Else
            MsgBox("File Does Not Exist")
        End If

    End Sub