I am trying to run a dts package-keep getting syntax errors--can anyone help?

'Declare the step and precedence constraint
Dim objStep As DTS.Step
Dim objConstraint As DTS.PrecedenceConstraint

ProgressCount

'CF Modified only runs when CF # completes
Set objStep = objPackage.Steps ("DTSDestination("CF Modified") =
DTSSource("CF Modified")")
Set objConstraint = objStep.PrecedenceConstraints.New("DTSDestination( "CF#")
= DTSSource("CF#")
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"PI Number" only runs when "CF Modified" completed
Set objStep = objPackage.Steps (DTSDestination("PI Number") = DTSSource("PI
Number"))
Set objConstraint = objStep.PrecedenceConstraints.New("DTSDestination( "CF
Modified") = DTSSource("CF Modified"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Date Notified" only runs when "PI Number" completed
Set objStep = objPackage.Steps (DTSDestination("Date Notified") =
DTSSource("Date Notified"))
Set objConstraint = objStep.PrecedenceConstraints.New("DTSDestination( "PI
Number") = DTSSource("PI Number"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Lot Number" only runs when "Date Notified" completed
Set objStep = objPackage.Steps (DTSDestination("Lot Number") =
DTSSource("Lot Number"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Date
Notified") = DTSSource("Date Notified"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Serial Number" only runs when "Lot Number" completed
Set objStep = objPackage.Steps (DTSDestination("Serial Number") =
DTSSource("Serial Number"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Lot
Number") = DTSSource("Lot Number"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Event Code" only runs when "Serial Number" completed
Set objStep = objPackage.Steps (DTSDestination("Event Code") =
DTSSource("Event Code"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Serial
Number") = DTSSource("Serial Number"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Event Date" only runs when "Event Code" completed
Set objStep = objPackage.Steps (DTSDestination("Event Date") =
DTSSource("Event Date"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Event
Code") = DTSSource("Event Code"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Event Description" only runs when "Event Date" completed
Set objStep = objPackage.Steps (DTSDestination("Event Description") =
DTSSource("Event Description"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Event
Date") = DTSSource("Event Date"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Investigation Required?" only runs when "Event Description" completed
Set objStep = objPackage.Steps (DTSDestination("Investigation Required?") =
DTSSource("Investigation Required?"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Event
Description") = DTSSource("Event Description"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"No Inv Rationale" only runs when "Investigation Required?" completed
Set objStep = objPackage.Steps (DTSDestination("No Inv Rationale") =
DTSSource("No Inv Rationale"))
Set objConstraint =
objStep.PrecedenceConstraints.New(DTSDestination(" Investigation Required?") =
DTSSource("Investigation Required?"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Complaint?" only runs when "No Inv Rationale" completed
Set objStep = objPackage.Steps (DTSDestination("Complaint?") =
DTSSource("Complaint?"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" No Inv
Rationale") = DTSSource("No Inv Rationale"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"US/Intl" only runs when "Complaint?" completed
Set objStep = objPackage.Steps (DTSDestination("US/Intl") =
DTSSource("US/Intl"))
Set objConstraint =
objStep.PrecedenceConstraints.New(DTSDestination(" Complaint?") =
DTSSource("Complaint?"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"RGA Number" only runs when "US/Intl" completed
Set objStep = objPackage.Steps (DTSDestination("RGA Number") =
DTSSource("RGA Number"))
Set objConstraint =
objStep.PrecedenceConstraints.New(DTSDestination(" US/Intl") =
DTSSource("US/Intl"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Clinical Study Event?" only runs when "RGA Number" completed
Set objStep = objPackage.Steps (DTSDestination("Clinical Study Event?") =
DTSSource("Clinical Study Event?"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" RGA
Number") = DTSSource("RGA Number"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Customer Contact ID" only runs when "Clinical Study Event" completed
Set objStep = objPackage.Steps (DTSDestination("Customer Contact ID") =
DTSSource("Customer Contact ID"))
Set objConstraint =
objStep.PrecedenceConstraints.New(DTSDestination(" Clinical Study Event?") =
DTSSource("Clinical Study Event?"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Rep Contact ID" only runs when "Customer Contact ID" completed
Set objStep = objPackage.Steps (DTSDestination("Rep Contact ID") =
DTSSource("Rep Contact ID"))
Set objConstraint =
objStep.PrecedenceConstraints.New(DTSDestination(" Customer Contact ID") =
DTSSource("Customer Contact ID"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint

'"Physician Contact ID" only runs when "Rep Contact ID" completed
Set objStep = objPackage.Steps (DTSDestination("Physician Contact ID") =
DTSSource("Physician Contact ID"))
Set objConstraint = objStep.PrecedenceConstraints.New(DTSDestination(" Rep
Contact ID") = DTSSource("Rep Contact ID"))
objConstraint.PrecedenceBasis = DTSStepPrecedenceBasis_ExecStatus
objConstraint.Value. = DTSStepExecStat_Completed
objStep.precedenceConstraints.Add objConstraint


' Copy each source column to the destination column
Function Main()
DTSDestination("CF#") = DTSSource("CF#")
Main = DTSTransformStat_Completed
DTSDestination("CF# Modified") = DTSSource("CF# Modified)
Main = DTSTransformStat_Completed
DTSDestination("PI Number") = DTSSource("PI Nimber")
Main = DTSTransformStat_Completed
DTSDestination("Date Notified") = DTSSource("Date Notified")
Main = DTSTransformStat_Completed
DTSDestination("Lot Number") = DTSSource("Lot Number")
Main = DTSTransformStat_Completed
DTSDestination("Serial Number") = DTSSource("Serial Number")
Main = DTSTransformStat_Completed
DTSDestination("Event Code") = DTSSource("Event Code")
Main = DTSTransformStat_Completed
DTSDestination("Event Date") = DTSSource("Event Date")
Main = DTSTransformStat_Completed
DTSDestination("Event Description") = DTSSource("Event Description")
Main = DTSTransformStat_Completed
DTSDestination("Investigation Required?") = DTSSource("Investigation
Required?")
Main = DTSTransformStat_Completed
DTSDestination("No Inv Rationale") = DTSSource("No Inv Rationale")
Main = DTSTransformStat_Completed
DTSDestination("Complaint?") = DTSSource("Complaint?")
Main = DTSTransformStat_Completed
DTSDestination("US/Intl") = DTSSource("US/Intl")
Main = DTSTransformStat_Completed
DTSDestination("RGA Number") = DTSSource("RGA Number")
Main = DTSTransformStat_Completed
DTSDestination("Clinical Study Event") = DTSSource("Clinical Study Event")
Main = DTSTransformStat_Completed
DTSDestination("Customer Contact ID") = DTSSource("Customer Contact ID")
Main = DTSTransformStat_Completed
DTSDestination("Rep Contact ID") = DTSSource("Rep Contact ID")
Main = DTSTransformStat_Completed
DTSDestination("Physician Contact ID") = DTSSource("Physician Contact ID")
Main = DTSTransformStat_Completed
End Function