Private Sub Demo()
  Dim RetVal As String
  RetVal = Dir("C:\Temp\MichGibts.exe")
  If RetVal <> vbNullString Then
    Shell "MichGibts.exe", vbNormalFocus
  Else
    MsgBox "Datei nicht vorhanden."
  End If
End SubEnd Sub

Gruß
Marcus