Const CAPICOM_VERIFY_SIGNATURE_ONLY = 0

Dim oSignedData
Set oSignedData = CreateObject("CAPICOM.SignedData")
Dim Content : Content = LoadFile("c:\1\doc.pdf")
Dim Message : Message = LoadFile("c:\1\sign.p7s")

oSignedData.Content = Content
oSignedData.Verify Message, True, CAPICOM_VERIFY_SIGNATURE_ONLY

Function LoadFile (FileName)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   If Not fso.FileExists(FileName) Then
     Err.Raise vbObjectError+1, "LoadFile", "File not found"
   End If 
   Dim ts
   Set ts = fso.OpenTextFile(FileName, ForReading)
   LoadFile = ts.ReadAll
End Function

  csptest.exe -sfsign -verify -in c:\1\doc.pdf  -detached -signature c:\1\sign.p7s -base64

const SIGN_ONLY = 1
Const DT_SIGNED_DATA = 2

Dim i
Dim oPKCS7Message
Dim oSignatures
Dim oSignature
Set oPKCS7Message = CreateObject( "DigtCrypto.PKCS7Message" )
oPKCS7Message.Load DT_SIGNED_DATA, "c:\1\sign.p7s", "c:\1\doc.pdf"
Set oSignatures = oPKCS7Message.Signatures
Dim n : n = oSignatures.Count
For i= 0 to n-1
  Set oSignature = oSignatures.Item (i)
  dim Status
  Status = oSignature.Verify (SIGN_ONLY)
  MsgBox "Status: " & CStr (Status)
next