Oscar,

É so colocar o seguinte código em sua planilha:

      ActiveWorkbook.SaveAs Filename:= _
        "C:Meus documentosArqTeste.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False

 

OBS.: No seu caso mude o caminho especificado para o salvamento do ArqTeste.txt.

         O código acima salvará a planilha ativa como sendo um arquivo em txt, você poderá em seu projeto deixar uma planilha como sendo somente para tal objetivo, de forma que tudo que você escrever na mesma será salvo.

 

Sds,