text file maker

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
NomMachine = WshNetwork.ComputerName
NomSite = left(NomMachine, 10)
S2 = replace(NomSite,"-PC","")
S2 = LCase(S2)
wscript.echo S2
custom = inputbox("type name of your file")
FichierTXT = "c:\Users\" & S2 & "\Documents\" & custom & ".txt"
text1 = inputbox("type what you want to have in your file","text éditor 1.01")
text2 = inputbox("type you second sentence")
'*** Création du fichier texte "c:\toto.txt"
Set NewFichier = fso.CreateTextFile(FichierTXT,TRUE)

'*** Ajout de données dans la variable "data1".
data1 = text1

'*** Ecriture des données de la variable "data1" dans le fichier texte.
NewFichier.WriteLine(data1)

data2 = text2
NewFichier.WriteLine(data2)