Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sAppPath As String
        Dim AppName As String
        Dim Pfad As String
        sAppPath = System.AppDomain.CurrentDomain.BaseDirectory
        AppName = "Microsoft Office Word 2007.exe"
        Pfad = sAppPath & AppName
        ' Ausgabe des Pfades funktioniert mit MsgBox(sAppPath)
        ' Ausgabe des Anwendungsnamen funktioniert mit MsgBox(AppName)
        ' Ausgabe des Pfads inkl Anwendungsnamen funktioniert mit MsgBox(Pfad)
   End Sub