Abrir archivo .pdf desde un subformulario

Hola muy buenos días, he generado el siguiente código para el campo certificados(pdf) en un subformulario, para que al hacer click sobre el nombre me abriera directamente un pdf, el código que he creado es:

Private Sub CERTIFICADOS_PDF_Click()

Dim vDir As String

Vdir=application.CurrentProject.Path & "CERTIFICADO_DE_CALIBRACION\"(que es el campo donde incluir los nombres de los pdf)

Vdir2=Vdir & Me.CERTIFICADOS_PDF_.Value

Application.Followhyperlink (Vdir2)

End Sub

Al ejecutarlo me da el siguiente error en tiempo de ejecución, y no se que es lo que esta mal, si alguien pudiera ayudarme,

Gracias de antemano