Проверить подписан ли pdf электронной подписью

Sub MMM()
    Set AcroApp = CreateObject("AcroExch.App")
    Set theForm = CreateObject("AcroExch.PDDoc")
    FRM.Open ("path to your pdf file")' дорога к файлу
    Set jso = FRM.GetJSObject
    If jso.getField("Text1").Value <> "" Then ' здесь в вашем файле нужно посмотреть какой тектсбокс соответствует подписи... 
         MsgBox ("document signed")
    Else
        MsgBox ("Not signed")
    End If
    FRM.Close
    AcroApp.Exit
    Set AcroApp = Nothing
    Set theForm = Nothing
End Sub

Function IsPDFSigned(PDFfullpath)
  IsPDFSigned = False
  With CreateObject("Scripting.FileSystemObject").OpenTextFile(PDFfullpath, 1)
    Do Until .AtEndOfStream
       If Left(.readLine, 10) = "/Type /Sig" Then
         IsPDFSigned = True
         Exit Function
       End If
    Loop
  End With
End Function

'записывает вес не подписанного файла в ячейку I2
 
Dim fsObj, filePointer, myFile
myFile = ActiveWorkbook.Path & "" & Range("A1") & "_" & "Анкета" & "_" & Range("H6") & ".pdf"
Set fsObj = CreateObject("Scripting.FileSystemObject")
If fsObj.FileExists(myFile) = True Then
    Set filePointer = fsObj.GetFile(myFile)
   Range("I2") = filePointer.Size
    
Else
    MsgBox "Файл " & UCase(myFile) & " не найден."
    
    End If
 
 
потом делаю так - это получается уже на вторую кнопку идет на отправку
 
Dim fsObj, filePoint, myFile
myFile = ActiveWorkbook.Path & "" & Range("A1") & "_" & "Анкета" & "_" & Range("H6") & ".pdf"
Set fsObj = CreateObject("Scripting.FileSystemObject")
If fsObj.FileExists(myFile) = True Then
    Set filePoint = fsObj.GetFile(myFile)
   Range("J2") = filePoint.Size  'записывает вес файла в ячейку J2
 
Else
    MsgBox "Файл " & UCase(myFile) & " не найден."
    
    End If
    
    If filePoint.Size = Range("I2") Then
    MsgBox "Не подписан файл Анкета! Сформируйте PDF ещё раз и подпишите Вашей ЭЦП": End
    
    End If
' если вес равен весу до подписания то выдает сообщение