Private Sub Command1_Click()
Dim strApp As String
    Dim strArg As String
 
    strApp = "C:\Program Files (x86)\Microsoft Office\Office12\Excel.exe"
    If (InStr(1, strApp, Chr$(32)) <> 0) Then
        strApp = Chr$(34) & strApp & Chr$(34)
    End If
 
    strArg = "F:\Textpfad für Exceldatei.xlsx"
    If (InStr(1, strArg, Chr$(32)) <> 0) Then
        strArg = Chr$(34) & strArg & Chr$(34)
    End If
 
    Debug.Print "Shell Command Line: "
    Debug.Print vbTab & "Call Shell(" & strApp & " " & strArg & ")"
 
    Call Shell(strApp & " " & strArg, VBA.VbAppWinStyle.vbMaximizedFocus)
End Sub

Private Sub Command10_Click()
Call Shell("C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe" & _
  "F:\Textpfad um PDF-Datei aufzurufen.pdf", vbNormalFocus)
End Sub