Trabajar con archivos txt en VBA

Crear un archivo TXT

Escribir el siguiente código en un Módulo:

Sub CrearunTXT()
Dim objFile As Object
Dim objFileTXT As Object
Set objFile = CreateObject("Scripting.FileSystemObject")
Set objFileTXT = objFile.CreateTextFile("C:\Users\Administrador10\Desktop\Macros\Blog\ArchivoTXT.txt", True)
'Pasamos los datos al TXT
objFileTXT.WriteLine "Mi nombre es Mario Sánchez C"
objFileTXT.WriteLine "Naci en Huatusco Veracruz"
objFileTXT.WriteLine "Me gusta la comida mexicana"
End Sub

Crear un txt con VBA