Visual Basic - Ceci: ¡¡Teno un error!!

El codigo fuente que me mandaste esta re bien, me cope haciendo un programita y bla-bla.
El codigo fuente es asi:
Dim hFile As Long

hFile = FreeFile

Open App.Path & "\Prueba.txt" For Binary Access Write As hFile

Put hFile, , "Dios esto funciona" 'aqui es donde siempre me aparece
'un error, no puede crearse el archivo
'con este texto
Close hFile
Lo que quiero es que te fijes si no podes ver si no te equivocaste en algo o que, ¿si?, tu respuesta sera muy agradecida. Chau y gracias a todos los que lean esta nota.

Me funciona perfectamente y sin errores, revisa si no tienes un archivo con el mismo nombre en el directorio donde lo ejecutas.