Replace fungerer ikke

Kan nogen se, hvorfor "replace" ikke virker i denne kodestump. Koden er en del af et større script, og fungerer fint uden replace.

If FileName <> "" Then
                    ' we have a file, let's save it to disk

                    FileName = Mid(Filename,InstrRev(FileName,"\")+1)

                    ' open a file (textstream)
                    set fso = Server.CreateObject("Scripting.Filesystemobject")
                    set fle = fso.CreateTextFile(server.MapPath("/Importer/Incomming/" & FileName))
                    ' write the data
                    fle.write DataString
                    DataString = replace("" & DataString & "",";;",";421003;")
                    fle.close
                    ' cleanup
                    set fle = nothing
                    set fso = nothing