Option Explicit
Sub Main
Dim intReturn As Integer
Dim varCommandLine As Variant
Dim varParameters As Variant
Dim varDefaultDir As Variant
Dim intWindowState As Integer
Dim intWaitUntilReady As Integer
Dim intWaitUntilDone As Integer
varCommandLine = "notepad"
varParameters = ""
varDefaultDir = ""
intWindowState = 0
intWaitUntilReady = 1
intWaitUntilDone = 0
intReturn = Action2.StartApplication (varCommandLine, varParameters, varDefaultDir, intWindowState, intWaitUntilReady, intWaitUntilDone)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub