Как отобразить в TextBox содержимое файла, выбранного в OpenFileDialog

OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.Title = "Открыть текстовый документ"
        OpenFileDialog1.Filter = "Текстовые файлы(*.txt)|*.txt|Все файлы (*.*)|*.*"
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then o = OpenFileDialog1.FileName : GoTo 1 Else GoTo 2
1:      Dim sr As New IO.StreamReader(o, System.Text.Encoding.GetEncoding(1251))
        TextBox1.Text = sr.ReadToEnd()
        sr.Close()
2:

        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = My.Computer.FileSystem.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
        End If

Dim MyFile as String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
Dim SplittedTXT() As String = MyFile.Split(vbCrLf)
textBox1.Text = SplittedTXT(0)
textBox2.Text = SplittedTXT(1)
textBox3.Text = SplittedTXT(2)

 Dim a As New OpenFileDialog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ofd1.InitialDirectory = "C:\testNKTU" ' Указываем начальную папку
        ofd1.Title = "Программируем на Visual Basic.Net" ' Указываем заголовок
        ofd1.Filter = "HTML файлы|*.html; *.htm|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*" ' При помощи фильтра можно отбросить ненужные типы файлов(в нашем случае делаем выбор из списка(HTML файлы, Текстовые файлы, Все файлы)).
        ofd1.FilterIndex = 2 ' Если есть список выбора типов, то можно указать какой тип будет выбран при загрузке диалога
        If ofd1.ShowDialog = DialogResult.OK Then
            Dim MyFile As String = My.Computer.FileSystem.ReadAllText(ofd1.FileName)
            Dim SplittedTXT() As String = MyFile.Split(vbCrLf)
            TextBox1.Text = SplittedTXT(0)
            TextBox2.Text = SplittedTXT(1)
            TextBox3.Text = SplittedTXT(2)
        End If
 
    End Sub

 OpenFileDialog1.Filter = "Txt файлы|*.txt|Все файлы|*.*"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.Filter = "Текстовые файлы|*.txt"
        If OpenFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Dim file As String = OpenFileDialog1.FileName
        Dim read As New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding(1251))
        TextBox1.Text = read.ReadToEnd
        read.Close()

Label1.Text = OpenFileDialog1.FileName