[VB6]Demande aide

Bonjour forum

j'ai fait un programme qui ouvre un fichier txt recupére les données,crée un autre fichier pour y mettre les données

Open mon_fichier For Input As #1
Open "C:\mon_fichier1.txt" For Output As #2
write#2,.....

mé le probléme c'est comment faire aulieu de mettre tjrs dans C:
mon_fichier1,il me demande de donner un nom pour l'enregistrer

merci pour votre aide car j'en ai besoin