DTS, activex, vbscript, replace

Hej

Jeg har en DTS pakke der henter en tekstfil og smider den ind i databasen.

I min tekstfil kan der stå er ^-tegn i nogle tekststrenge, disse vil jeg gerne have erstattet med "-tegn i min database.

Jeg har prøvet med denne funktion, uden held:

Function Main()
    DTSDestination("Tekst1") = Replace(DTSSource("Col004"), "^ """")
End Function