Foro de programacion

Espero que me puedan ayuda, mi duda es la sgte.:
Estoy diseñando un programa, en el cual le he colocado unos accesos directos,para que el usuario pueda acceder inmediatamente, pero el problema es que el codigo que puse para que me abriera el word no pasa nada como tambien con el de excel es codigo es el sgte.:

abre word

Shell ("winword.exe"), vbNormalNoFocus

abre excel

Shell ("excel.exe"), vbNormalNoFocus

Necesito que solo me abra estas dos aplicaciones .
espero que me me den una ayuda, desde ya muchas gracias

para abrir excel yo ocupo este codigo ojala te sirva


Dim strFic As String
strFic = "c:\archivos de programa\microsoft office\excel.exe"

Shell strFic & " " & strParam, vbNormalFocus

ojo pon la direccion en donde tienes office y el ejecutable de excel

puedes usar variables objetos asi:

Para abrir excel...
Dim Ap As Object
Set Ap = CreateObject("Excel.application")
ApExcel.Visible = True

Para abrir word...
Dim Ap As Object
Set Ap = CreateObject("Word.application")
ApExcel.Visible = True

Set Ap = Nothing