Qualcosa del genere

codice:
    Dim o As Object
    Dim v As String
    Dim e As Boolean
    
    e = False
    On Error Resume Next
    Set o = CreateObject("AcroPDF.PDF")
    If Err Then
        e = True
        Err.Clear
        Set o = CreateObject("PDF.PdfCtrl")
        If Err = 0 Then e = False
    End If
    
    If Not e Then
        v = o.GetVersions()
        Set o = Nothing
        MsgBox "Versione: " & v
    Else
        Err.Clear
        MsgBox "Adobe Reader non installato"
    End If
... e' un codice d'esempio ... devi perfezionarlo tu ... in particolare, se il prodotto e' installato, devi scegliere la parte di stringa che ti interessa da quella che ti viene restituita ...