Un error muy comun que produce esos efectos es olvidarse la barra \ entre el directorio del archivo y el nombre del archivo
Por ejemplo
Código:
Dim Directorio, Archivo As String
Código:
Directorio = "C:\undirectorio\otromas"
Código:
Archivo = "Archivo.txt"
Código:
Open Directorio & "\" & Archivo For Output As #1
Close #1