Abrir un Archivo .txt con visual basic

Se necesitan: un Button, un TextBox  multilinea y un OpenFileDialog.

Lo dejaremos con sus nombres por defecto es decir: Button1, TextBox1 y OpenFileDialog1.
Ahora el codigo es el siguiente:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim TodoTexto As String = ""
        Dim LineaDeTexto As String = ""
        OpenFileDialog1.Filter = "Formato de archivo (*.TXT)|*.TXT"
        OpenFileDialog1.ShowDialog() 'cuadro de dialogo abrir
        If OpenFileDialog1.FileName <> "" Then 'si el nombre del archivo no es nulo
            Try 'detecta posibles errores al abrir
                FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) ' el archivo que hemos abierto se denotara por 1
                Do Until EOF(1) 'EOF devuelve verdadero si se termina de leer un archivo (archivo=1)
                    LineaDeTexto = LineInput(1) 'LineInput lee linea por linea de un archivo (archivo=1)
                    TodoTexto = TodoTexto & LineaDeTexto & vbCrLf
                Loop
                TextBox1.Text = TodoTexto 'abre el archivo
            Catch
                MsgBox("Error al leer el archivo") 'Error al leer
            Finally
                FileClose(1) 'cierra el archivo
            End Try
        End If
    End Sub


Como resultado tendremos al acer clic en abrir:

Selecciono un archivo txt y me muestra en el textbox: