Visual Basic para Aplicaciones - Textbox

Hola a todos,mi pregunta es como puedo visualizar el contenido de un archivo de texto en un textbox de un form de excel

Gracias...

Sub ArchivoTexto()

Dim Texto As String
Dim Linea As String

TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsBoth
Open "C:\Ruta\Archivo.Txt" For Input As #1
Texto = ""
Do Until EOF(1)
Input #1, Linea
Texto = Texto & Linea
Loop
TextBox1.Text = Texto
Close #1
End Sub

Saludos