alguien me puede ayudar??Importar archivo txt a excel con visual basic

Logan
10 de Agosto del 2005
He conseguido importar los datos del txt, xo sin delimitaciones, por lo q me lo pega todo en una celda.
Dim sTablaOrigen As String, Csql As String
Dim cnn As ADODB.Connection
Dim sChainSql As String
'Err.Clear
'Establezco la conexión con el libro de trabajo
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = " Data Source= '" & FrmExplorador.txtdestino.Text & "' "
.Properties("Extended Properties") = "Excel 8.0;"
.Open
End With

'Construimos la consulta SQL
sTablaOrigen = " '" & App.Path & "' 'TEXT;''Format=TabDelimited;' "
sChainSql = "SELECT * INTO Hoja FROM [hola#txt] IN " & sTablaOrigen
cnn.Execute sChainSql
cnn.Close

Necesito importar datos de un archivo txt a excel, desde visual basic, teniendo en cuanta las tabulaciones del txt para pasarlo a cada celda, y el número de hojas..
me podríais ayudar?