Creer un fichier

Bonjour à tous,
Je n'ai pas tres bien compris les reponses sur le forum a propos de la creation de fichier.
J'ai compris que pour creer un fichier il faut mettre :

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\fichier.txt")

Moi je voudrais que mon prog sache où il se trouve(par exemple sur le bureau dans le dossier prog) et qu'il creer un fichier texte dans ce repertoire

Si je ne suis pas clair dites le moi !
merci beaucoup pour vos futur reponses.

Pour ouvir un fichier en mode ecriture :

Open "c:\fichier.ext" for output as #1

Pour ecrire dedans
Print #1,"texte"
Print #1,"2 éme ligne"

Pour le fermer :
Close #1

PS: Pour ajouter dans le fichier il faut utiliser append au lieu de Output!!

++