VB Script in Integration Manager

[CanadaMarkham]

Hi

I wrote following VB script in integration manager, it is working fine with
one integration but for some reason it is not working for other integration:
(Only difference b/w two integrations is Column name)

Dim DocNO, fso, fw
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set DocNO = SourceFields ("COFHeader.F2")
DocNO = "FAILED ***" & (DocNO) & Chr(10) & Chr(13)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fw = fspenTextFile("D:\COF\FailLog\Fail.txt", ForAppending, True)
fw.Write DocNO
fw.Close

I am getting this result in file:
FAILED ***

For some reason "DocNO" is missing.

Any help will be appreciated. I am not developer.
Thanks

 

[slantsix]

To which event have you attached this script?