Private Sub cmdAnhoeren_Click()
 
    OpenWithLinkedApp Me.hWnd, strFilename
 
End Sub

Public Function OpenWithLinkedApp(ByVal lOwnerHWND As Long, _
  ByVal sFile As String, Optional ByVal sVerb As String = "open") As Boolean
 
  sFile = strFilename
  sVerb = strFilename
 
  OpenWithLinkedApp = ShellExecute(lOwnerHWND, sVerb, sFile, "", "", 1) > 32
End Function