Ecriture de nombres à virgule dans un fichier

Bonjour,
Je veut écrire le résultat d'un calcul dans un fichier text. Ce résultat n'est pas entier et il apparait sous une forme qui le rend inexploitable ensuite. Voici un exemple qui illustre mon problème :
Code:

1 2 3 4 5 6 7 n=3.14 Set FSys = CreateObject("Scripting.FileSystemObject") Set Nombre= Fsys.CreateTextFile("Virgule.txt",True) With Nombre .WriteLine n End With
Le fichier Virgule.txt contient 3,14 au lieu de 3.14 comme je le souhaiterais.
Existe t'il un moyen pour afficher correctement ce genre de nombre?

avec replace :

Code:

1
2
3
4
5
6
7
 
n=3.14
Dim st
Set FSys = CreateObject("Scripting.FileSystemObject")
Set Nombre= Fsys.CreateTextFile("Virgule.txt",True)
st = replace(n,",",".")
 Nombre.WriteLine st

ça fonctionne, merci pour cette aide