'assoziiertes Programm ermitteln (EXE4FILE)
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" ( _
  ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
  String) As Long

Public Function EXE4FILE(ByVal sDatei As String) As String
    On Error Resume Next
    '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
 
    Dim sPfad As String
    sPfad = Space(256)
    FindExecutable sDatei, vbNullString, sPfad
    If sPfad <> "" Then
        sPfad = Left(sPfad, InStr(sPfad, vbNullChar) - 1)
    End If
    If UCase(sPfad) = UCase(sDatei) Then sPfad = ""
    EXE4FILE = sPfad
End Function

Private Sub mnuReadMe_Click()
    Dim va As Variant
    Dim sa As String
 
    'readme mit assoziierter anwendung anzeigen
    sa = EXE4FILE("d:\readme.txt")
    va = Shell("""" & sa & """ " & """" & "d:\readme.txt" & """", vbNormalFocus)
End Sub