Archivos txt

Private Sub btnGenerar_Click()
Dim ContadorBucle As Integer
Dim strRegistro As String
Dim i As Integer
Dim fs As Scripting.FileSystemObject
Dim a As Object
    Set fs = New Scripting.FileSystemObject
    Set a = fs.CreateTextFile("C:\ESQUEMA.TXT", True)
    ContadorBucle = 0
     'aca se espera unos segundos mientras se crea el archivo
    If fs.FileExists("C:\ESQUEMA.TXT") = False Then
        Do While ((fs.FileExists("C:\ESQUEMA.TXT") = False) Or (ContadorBucle < 200))
            ContadorBucle = ContadorBucle + 1
        Loop
    End If
       dim Fila as integer
    For Fila = 1 To 10 'aca cambias hasta que fila debes recorrer en el excel
          strRegistro = Sheets("Hoja1").Range("A" & Fila) & ","
           a.WriteLine (strRegistro)
    Next
        a.Close
        Set fs = Nothing
        Set a = Nothing
End Sub

Me falto decirte que este código lo debes agregar en una macro del archivo excel.

Error
No se ha definido el tipo definido por el usuario