Private Declare Function FindExecutable Lib "shell32.dll" Alias _
    "FindExecutableA" _
        (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
        String) As Long
Public Function AnwendungFuerDatei(ByVal FileWithPath As String) As String
  'Datei: Pfad+Dateinamen einer existierenden Datei
  Dim Pfad As String
  Pfad = Space$(256)
  FindExecutable FileWithPath, vbNullString, Pfad
  If Pfad <> "" Then
    Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
  End If
  If UCase$(Pfad) = UCase$(FileWithPath) Then Pfad = ""
  AnwendungFuerDatei = Pfad
End Function

Wieso soll man sich das leben schwer machen, wenn's das leben f?r einen tut?