Visual Basic - Tomar datos de las celdas de excel

Hola a Todos,
Espero que me puedan ayudar. Necesito crear un programa que lea las celdas de varias hojas de un archivo en Excel, dichos datos debo tomarlos por cada celda y luego dejarlos en un archivo .txt , dichos datos deben estar separados por tabulaciones. Agradecería quien me pudiesa ayudar y me envíe instrucciones para realizarlo.
Saludos a Todos......y Gracias...

Private Sub cmdTraer_Click()


x% = MsgBox("Confirma traer modificaciones desde una planilla de Excel?", vbYesNo, "")


If x% = 6 Then

NameExp$ = "c:\Repuesto.xls"


If NameExp$ <> "" Then


Set xl = CreateObject("Excel.Application")
Set docExcel = xl.WorkBooks.Open(NameExp$)

lineask& = 0
Do
lineask& = lineask& + 1

MiCelda1$ = Trim(xl.Cells(lineask&, 1))
MiCelda2$ = Trim(xl.Cells(lineask&, 2))

If MiCelda1$ = "" And MiCelda2$ = "" Then
Exit Do
End If

frmProdu.Caption = "Trayendo " + MiCelda2$

MiCelda3$ = Trim(xl.Cells(lineask&, 3))

MiCelda4$ = Trim(xl.Cells(lineask&, 4))

MiCelda5$ = Trim(xl.Cells(lineask&, 5))


Loop
Close
Set xl = Nothing

MsgBox "Importación concluída.", vbInformation, ""

frmProdu.Caption = ""

End If

End If


End Sub