CreateObjekt + OpenTextFile

Hi,
ich habe da ein winziges Problem.

Ich möchte aus Outlook verschiedene Variablen in eine Textdatei schreiben.
(das heißt unten anfügen)

Etwa so:
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim Testtext as String
Dim fs, f
Testtext = \“Na es geht nicht!\“
Set fs = CreateObject(\“Scripting.FileSystemObject\“)
Set f = fs.OpenTextFile(\“c:\\testfile.txt\“, ForAppending,TristateFalse)
f.Write Testtext
f.Close
End Sub

geht aber nicht. Debugg mein es sei eine Funktion nicht definiert.

Kann mir jemand helfen?

Gruß

Martin