'Hier die benötigten API-Deklarationen
Declare Function FindExecutable Lib "shell32.dll" _
  Alias "FindExecutableA" (ByVal lpFile As String, _
  ByVal lpDirectory As String, _
  ByVal lpResult As String) As Long
 
'Diese Funktion ermittelt die Standard-Anwendung
'in Verbindung mit einem bestimmten Dateityp
'
'Die Funktion gibt als Ergebnis den Dateinamen mit
'vollständigen Pfad zurück
'
'Kann keine assoziierte Anwendung ermittelt werden
'wird ein Leerstring zurückgegeben
Public Function AnwendungFuerDatei(ByVal Datei As String) _
  As String
 
  'Datei: Pfad+Dateinamen einer existierenden Datei
 
  Dim Pfad As String
 
  Pfad = Space$(256)
  FindExecutable Datei, vbNullString, Pfad
  If Pfad <> "" Then
    Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
  End If
  If UCase$(Pfad) = UCase$(Datei) Then Pfad = ""
 
  AnwendungFuerDatei = Pfad
End Function

    Dim xRet As Double
    Dim Anw As String
 
    Anw = AnwendungFuerDatei(App.Path & "\reader.pdf")
    If Anw <> "" Then
        xRet = Shell(Anw & " " & App.Path & "\reader.pdf", vbMaximizedFocus)
    End If