Sub Main
Dim intReturn As Integer
Dim varText As Variant
Dim intType As Integer
Dim intActionOnOK As Integer
Dim intFailOnCancel As Integer
Dim intFailOnNo As Integer
Dim varTaskToStart As Variant
varText = "Text to prompt the user"
intType = 1
intActionOnOK = 0
intFailOnCancel = 1
intFailOnNo = 1
varTaskToStart = "TaskToStartOnCancel"
intReturn = Action2.PromptUser (varText, intType, intActionOnOK, intFailOnCancel, intFailOnNo, varTaskToStart)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
ElseIf intReturn = 2 Then
MsgBox "Task Was Stopped"
End If
End Sub