Problem med att spara till fil

har problem när jag skall spara ner en sträng till en fil
orginalen ser ut så här, alltså i strängen

"Version","2.45"
"Status","OK"
"Current UTC Time","2007.07.23 18:47:00"

men resultatet i filen blir så här

"""Version"",""2.45""
""Status"",""OK""
""Current UTC Time"",""2007.07.23 18:23:22""

den läggar alltså till extra "" lite här och där, hur kommer jag ifrån det?

koden jag använder är:

Public Function SaveFile(sString As String) As Boolean
    Dim intFilNr As Integer
    intFilNr = FreeFile
    Open App.Path & "/Currency.txt" For Output As intFilNr
    Write #intFilNr, sString
    Close #intFilNr
    SaveFile = True
End Function