Listing A
    'check if application is running
    If IsTaskRunning(sAppName) Then
        MsgBox "Application '" & sAppName & "' is running!"
    Else
        MsgBox "Application '" & sAppName & "' is not running!"
    End If