DTS error "Error Parsing Script

[thendrickson]

When I run this package I receive "Error Parsing Script"
Error description "Expected statement"

Error on line 19

Function Main()
DTSDestination("OrderID") = DTSSource("Col001")
DTSDestination("RouteNo") = DTSSource("Col002")
DTSDestination("LoadNo") = DTSSource("Col003")
DTSDestination("OrderNo") = DTSSource("Col004")
DTSDestination("CustCode") = DTSSource("Col005")
DTSDestination("SKU") = DTSSource("Col006")
if not (isnull(DTSSource("Col007"))) then
DTSDestination("Quantity") = clng(DTSSource("Col007"))
Main = DTSTransformStat_OK

else
Main = DTSTransformStat_SkipRow
endif
End Function

This is my first attempt with modifying the VB script generated by the wizard and I suspect I am missing a basic concept.

Thanks

 

[thendrickson]

Never mind.
I was a bit confused on the structure of the text file (tab delimented file) and was shooting my self in the foot