Sub Main()
   Dim bExtAppIsRunning as Boolean
   Dim bStartOK as Boolean
 
   If Not App.PrevInstance Then
      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 If
 
   End
 
End Sub

Tschaui
Woellmi