Sub test()
Dim myFso As Object, myFile As Object
'créer un objet "FileSystemObject"
Set myFso = CreateObject("Scripting.FileSystemObject")
'créer le fichier
Set myFile = myFso.CreateTextFile("C:\test.c")
'écrire dans le fichier
myFile.WriteLine "ceci est un test"
'...
'...
'...
'fermer le fichier et détruire les objets
myFile.Close
Set myFile = Nothing: Set myFso = Nothing
End Sub