Run-time-error '429': ActiveX component can't create object

How about ...

Sub main()
    Dim AcroApp As Acrobat.CAcroApp
    Dim theForm As Acrobat.CAcroPDDoc
    
    Set AcroApp = New Acrobat.AcroApp
    Set theForm = New Acrobat.AcroPDDoc
    theForm.Open "C:\YourPage.pdf"
    
    theForm.Close
     
    AcroApp.Exit
    MsgBox "Done"
End Sub

The only reference I set was Acrobat.