Generar macro en excel para guardar archivo en txt

Esta sería la macro:

sub proceso()
Open "archivo.txt" For Output As #1
Range("A2").Select
Do While ActiveCell.Value <> ""
dato1 = ActiveCell.Value
dato2 = ActiveCell.offset(0,1).Value
Print #1, dato1;dato2
ActiveCell.Offset(1, 0).Select
Loop
Close #1
end sub

recuerda finalizar la consulta

Gracias, muy útil.

Una mas si el nombre de: archivo, se lo quisiera ingresar escribiendo en un textbox, lo estoy tratando de hacer de esta manera, pero creo que no es la correcta:

Archivo = InputBox("Nombre del archivo a guardar")

Open "Archivo.txt" For Output As #1

...