Crear txt vacio

[juaco14]

Hola.
Mi problema es que no puedo crear varios archivos vacios en la carpeta de origen del exe cuando se cargue el form.
El codigo que tengo pero no funciona es :

Código:

Private Sub Form1_Load()


If ArchivoExiste("\MarzoAbril.txt") Then GoTo EX
If ArchivoExiste("\Mayo.txt") Then GoTo EX
If ArchivoExiste("\Junio-Julio.txt") Then GoTo EX
If ArchivoExiste("\Agosto.txt") Then GoTo EX
If ArchivoExiste("\Septiembre-Octubre.txt") Then GoTo EX
If ArchivoExiste("\Noviembre-Diciembre.txt") Then GoTo EX

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\MarzoAbril.txt", True)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\Mayo.txt", True)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\Junio-Julio.txt", True)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\Agosto.txt", True)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\Septiembre-Octubre.txt", True)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\Noviembre-Diciembre.txt", True)


EX:

End Sub

Gracias!

[David]

Prueba con App.Path:
App.Path & "\Archivo.ext"

P.S.: Para salir de un Sub o Function puedes usar directamente Exit Sub.