nResult = Shell(sFile, vbNormalFocus)

nResult = ShellExecute(hWnd, "", sFile, "", sWorkDir, SW_SHOWNORMAL)

Sub Main()
 
   Dim bExtAppIsRunning as Boolean
   Dim bStartOK as Boolean
 
   bStartOK = False
 
   bExtAppIsRunning =IsEXERunning(sFile)
 
   If Not bExtAppIsRunning Then
      bStartOK = EXEStartOK(sFile)
   End If
 
   If Not bStartOK Then
      If bExtAppIsRunning Then
         MsgBox "Externe Anwendung ist bereits gestartet!" 
      Else
         MsgBox "Beim Aufruf der externen Anwendung trat ein Fehler auf!"
      End If
   End If
 
   End
 
End Sub

Tschaui
Woellmi