Hola, que tal.
En la espera de más sabias contestaciones podrías hacer una prueba con lo siguiente:
Código:
Option Explicit
Dim Retval As String
Private Sub Command1_Click()
On Error GoTo error
'Retval = Shell("C:\Archivos de programa\Microsoft Office\Office\WINWORD.EXE", vbMaximizedFocus)
Retval = Shell("C:\Archivos de programa\Microsoft Office\Office\WINWORD1.EXE", vbMaximizedFocus)
MsgBox Err
Exit Sub
error:
MsgBox Err
End Sub Haz pruebas. Observa que pongo WINWORD1 a posta para que no lo encuentre. Por eso me da 53. Cuando pongo WINWORD se me abre Word y el err = 0.
Si err = 0 tienes instalado WORD, si te da 53 es que NO tienes WORD.
como puedo conectarme a word 
Mode Lineal
