Excel - Guardar archivo .txt con nombre variable

Como puedo guardar datos de una hoja de excel en un archivo .txt en una ubicación determinada donde el nombre del archivo esté definido por una variable?
He intentado lo siguiente, pero no ha funcionado:

Sub guardatosTXT()
nfact = Worksheets("control").Cells(3, 2)
narch=Worksheets("control").Cells(3, 3)
Open "C:"&narch&".txt" For Output As #1
For i = 1 To nfact
For j = 1 To 70
dato = Cells(i, j).Value
Write #1, dato
Next j
Next i
Close #1

Agradezco cualquier ayuda.

hice esta prueba y funciona bien...

Sub guardatosTXT()
Dim hFile%, iFact&, sArch$, sDato$
Dim i&, j&
iFact = Worksheets("hoja1").Cells(3, 2)
sArch = Worksheets("hoja1").Cells(3, 3)
hFile = FreeFile
Open "C:windowsescritorio" & sArch & ".txt" For Output As hFile
For i = 1 To iFact
For j = 1 To 5
sDato = Cells(i, j).Value
Write #hFile, sDato
Next j
Next i
Close hFile
End Sub

Saludos desde Baires, JuanC

Gracias JuanC. Funciona bien en el sentido que guarda el archivo , pero no lo guarda en la direccion determinada "c:windowsescritorio", sino en "misdocumentos" con el nombre "windowsescritorio"&sArch. Para seguir con tu ejemplo:
Lo que necesito es que se guarde con el nombre sArch en ("c:windowswscritorio") eo sea en C y en la carpeta "windowsescritorio". Agradezco tu ayuda...

Doy alcance a la anterior nota. La solución es adicionarle el slash asi:

Dim hFile%, iFact&, sArch$, sDato$
Dim i&, j&
iFact = Worksheets("Control").Cells(3, 2)
sArch = Worksheets("Control").Cells(3, 3)
hFile = FreeFile
Open "C:windowsescritorio" & sArch & ".txt" For Output As hFile
For i = 1 To iFact
For j = 1 To 5
sDato = Cells(i, j).Value
Write #hFile, sDato
Next j
Next i
Close hFile

Gracias Juanc por tu valiosa ayuda.