Visual Basic para Aplicaciones - como importar de VB a Excel

Hola:
soy principiante en eso de VB en aplicaciones y me gustaria saber que funcion me ayuda a importar archivos con extencion txt a excel con ayuda de VB6 bueno gracias por tu ayuda.

Sub Importar()

Dim Objeto as Object
Dim MiLibro as Object
Dim Fila as Long
Dim Linea as String
Set Objeto=CreateObject("Excel.Application")
Set MiLibro=Objeto.WorkBooks.Open("C:\Ruta\MiArchivo.Xls")
Open "C:\Ruta\MiTexto.txt" For Input as # 1
Libro.Worksheets(n).Activate
Libro.Worksheets(n).Select
Fila=1
Do Until EOF(1)
Input #1,Linea
Libro.Worksheets(n).Cells(Fila,1)=Linea
Fila=Fila+1
Loop
Close # 1
MiLibro.Close
Objeto.Quit
Set MiLibro=Nothing
Set Objeto=Nothing

End Sub

Si tienes algun problema escribeme

Saludos

Mil gracias por tu ayuda, no tienes idea lo que acabas de hacer por mi
cuando necesites algu y pueda ayudarte no lo dudes ok