¿Cómo crear un archivo txt con texto variable desde excel vba?

Este código es Vba Access, pero te dejo la idea de como hacerlo, tienes que recorrer tu hoja.

Public Sub CreaDocumentoTabla()
    Dim rst As DAO.Recordset, SQL As String
    On Error GoTo ManipularError
    SQL = "SELECT * FROM Tbl_Personal"
    Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
    With rst
        Open CurrentProject.Path & "\Tabla.txt" For Output As #1
        Do While Not .EOF
            Print #1, "Id: " & !Id
            Print #1, "Nombre: " & !Nombre
            Print #1, "Apellido: " & !Apellido
            Print #1, ""
            .MoveNext
        Loop
    End With
    Close #1: rst.Close: Set rst = Nothing
Salir:
    Exit Sub
ManipularError:
    If Not rst Is Nothing Then Close #1: rst.Close: Set rst = Nothing
    MsgBox Err.Description, vbCritical, "Atencion"
    Resume Salir
End Sub

 Muchas gracias el ejemplo me ayudo bastante y me aclaro dudas.