'Net-Deklaration
<System.Runtime.InteropServices.DllImport("shell32.DLL", _
   EntryPoint:="FindExecutableW", _
   ExactSpelling:=True, _
   CharSet:=System.Runtime.InteropServices.CharSet.Unicode)> _
Private Shared Function FindExecutable(ByVal lpFile As String, _
            ByVal lpDirectory As String, _
            ByVal lpResult As System.Text.StringBuilder) As IntPtr
End Function
 
'Verwendung:
Dim sb As New System.Text.StringBuilder(260)
Dim retval As IntPtr = FindExecutable(<Dateiname>, <Verzeichnis>, sb)
Dim iretval As Integer = retval.ToInt32()
 
Select Case iretval
    Case 2 
       Throw New ApplicationException("Die Datei wurde nicht gefunden")
    Case 3 
       Throw New ApplicationException("Der Pfad wurde nicht gefunden")
    Case 5 
       Throw New ApplicationException("Access denied")
    Case 8 
       Throw New ApplicationException("Out of memory")
    Case 32 
       Throw New ApplicationException("Die DLL wurde nicht gefunden")
    Case Is < 32 
        Throw New ApplicationException _
        (String.Format("Unbekannter Fehler #{0}", iretval))
End Select