Excel VB script kérdés

[attila.nagy at ni.com]

Szeretnék Excel VB scriptben olyat létrehozni, ami egy létező .txt
kiterjesztésű állományba hozzáfűzve írjon szöveget.

Első nekifutásra a help-ben szereplőt használtam:

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
'*********
    f.Write "Hello world!"
    f.Close
End Sub

Futtatáskor pedig azt irja ki, hogy "Invalid procedure call or argument" a
*-hal jelölt sorban. A c:\testfile.txt már létező állomány, csak szeretnék
hozzáfűzni még sztringeket. Hogyan tudnám rávenni ezt a nyavajást az
együttműködésre???

Segítségeket előre is köszönom:

                      Nagy Attila

          Mail: attila.nagy at ni.com