Hai provato anche con :

codice:
Filedoc = "c:\miodoc.doc"
X = Shell("C:\Programmi\Microsoft Office\Office10\winword.exe  " & Filedoc & "", vbNormalFocus)
Scusa, avevo dimenticato il percorso e sbagliato l'apice finale, adesso funziona!