Visual Basic - Crear un .Txt desde mi VB

Hola a todo el mundo, quiero saber como puedo hacer para tocando un boton en el visual(command1) puedo crear un archivo tipo .txt que se guarde en una carpeta de ejemplo y luego al abrirlo aparezca la siguiente linea: "Dios esto funciona", por favor respondanme rapido y a mi e-mail, sin archivos adjuntos ni direcciones de pagina web, solo quiero el codigo Fuente, mil gracias a todos(los que me escriban claro)

Fijate con esto:

Dim hFile As Long

hFile = FreeFile

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

Put hFile, , "Dios esto funciona"

Close hFile