kan ikke finde syntaks fejl.

Hejsa jeg får en syntaks fejl.
det er denne linje den brokker sig over
strefterrettelser = replace(Replace(stroriginaltekst,"*DDDGOL*","DDD"Initialer),"*DDDGOL*","DDD"Initialer)

her er det hele.

Set fso = CreateObject("Scripting.FileSystemObject")
    dokument = "\\app001\egbolig\Brugerskilleark\SKILLEBLAD "&Initialer&".rtf"
    Set objTextFile = FSO.OpenTextFile (dokument, ForReading)
    Do Until objTextFile.AtEndOfStream
    stroriginaltekst = stroriginaltekst & objTextFile.Readline & vbcrlf
    Loop
    objTextFile.Close
    fso.DeleteFile(dokument)
    strefterrettelser = replace(Replace(stroriginaltekst,"*DDDGOL*","DDD"Initialer),"*DDDGOL*","DDD"Initialer) 'ordet der skal erstattes, Og med hvad skal det erstattes
    Set objTextFile = FSO.OpenTextFile (dokument, ForAppending,1)
    objtextfile.WriteLine(strefterrettelser)
    objTextFile.Close

    'end if
    Next