Visual Basic - Ayuda urgente con un programa

Buenas,.....
Necesito una función que me lea el contenido de un archivo *.txt o *.dat, estoy utilizando el Control ActiveX: commond dialog contrl 6.0, este archivo me lo debe mostrar en una caja de texto.
Muchísimas gracias a quién o quienes me puedan ayudar.

El código es simple:

dim Cadena as string
Open "<path archivo>" for input as #1
do while not eof(1)
line input #1, Cadena
Text1.Text = Text1.Text & Cadena & chr(13) + chr(10)
loop
close #1

Nota: chr(13) + chr(10) es igual a un Enter