Visual Basic - lectura de ficheros de texto

Hola, tengo un problema con un ejercicio.Me piden que lea un archivo de texto que tengo creado y que lo saque por pantalla por un textbox , pero me he liado un poco con la función de lectura de ficheros y ni me lee el fichero ni me lo saca por pantalla.
¡¡¡¡Alguien me puede ayudar!!!!!

Debes poner en un formulario una caja de texto multilinea (Text1) y un boton, en el evento click del boton pon el siguiente codigo:

Dim dato As String

Open "c:\archivo.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, dato
Text1.Text = Text1.Text + dato + Chr(13)
Loop

Close #1

con esto te debiera funcionar.