DTS workflow problem when encountering On Failure

[shinobi332]

I am creating a DTS package in SQL Server 2000.
I am importing a text file : on success the workflow will continue and
run SQLTask A and then SQLTask B
On Failure I am executing an activeX script to try and exec only
SQLTask B.

When the import fails it simply stops on the activeX task and does not
continue...

Here is the script:

'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************
Option Explicit

Function Main()

'** Do Not Run this step
dim oStep
Set oStep = oPkg.Steps("DTSStep_DTSExecuteSQLTask_1")
oStep.ExecutionStatus = DTSStepExecStat_Inactive

'** Run the following step
dim stpGo
Set oPKG = DTSGlobalVariables.Parent
set stpGo = oPkg.Steps("DTSStep_DTSExecuteSQLTask_2")
stpGo.ExecutionStatus = DTSStepExecStat_Waiting

Main = DTSTaskExecResult_Success
End Function

I've used this logic before but never after a failure.
Any help would be appreciated.