Visual Basic - Error al abrir pdf

Hola:
Estoy realizando una aplicación, la cual abre ficheros .doc y .pdf. No tengo problema abriendo ficheros de texto .doc, pero al intentar abrir .pdf me salta el siguiente error:
Error '424' en tiempo de ejecución. Se requiere un objeto

El código es el siguiente:

Dim nompdf As String

Private Sub Manual_Click()
nompdf = "manual.pdf"
Call AbrirManual
End Sub

Private Sub AbrirManual()
Dim rutadoc As String
Dim MiObjeto As Object

rutadoc = "C:\Calderona\Manual\" & nompdf
Set MiObjeto = GetObject(rutadoc)
MiObjeto.Application.Visible = True
End Sub

Saludos y gracias

Xavi