Проверка подписанного сообщения

 Option Explicit

 Const CAPICOM_VERIFY_SIGNATURE_ONLY = 0
 Const ForReading = 1

 Dim oSignedData
 Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")
 ' Загрузка подписанных данных для проверки.
 Dim Message : Message = LoadFile("test.sig")
 ' Подпись совмещенная.
 oSignedData.Verify Message, False 
 
 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

 Option Explicit
 
 Const CAPICOM_VERIFY_SIGNATURE_ONLY = 0
 Const ForReading = 1
 
 Dim oSignedData
 Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")
 ' Загрузка подписанных данных для проверки.
 Dim Content : Content = LoadFile("test.vbs")
 Dim Message : Message = LoadFile("test.sig")
 oSignedData.Content = Content
 ' Проверка отделенной подписи
 oSignedData.Verify Message, True
 
 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