in der form....
Private Sub img_alarm_Click()
Shell(ApplicationPath & "PC_Wecker.exe", vbNormalFocus)
End Sub
 
im modul....
Function ApplicationPath() As String
  Dim strPath As String
 
  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  ApplicationPath = strPath
End Function