на демо странице создаются простые и усовершенствованные ЭЦП для тестовых сертификатов?

Прежде чем что-то писать "свое" - проверь работу этих сертификатов на демо-странице
1) поставь плагин
2) укажи сертификат в списке
3) нажми на кнопку Подписать
вернись к п.2) укажи "Тип подписи: Усовершенствованная подпись" и перейди к п.3

Да ладно

Если доберешься до такой проблемы - уже полдела... ( = подпись создана).

Выбери сертификат от CA1 NIAST - та же ошибка?

в реестр, "руками"?

Опять будем гадать? чей "наш"? и с какой ошибкой не проходит?

Option Explicit

Const CADES_BES = 1
Const CADES_DEFAULT = 0
Const CAPICOM_ENCODE_BASE64 = 0
Const CAPICOM_CURRENT_USER_STORE = 2

' Укажите правильный серийный номер сертификата.
Dim sSerialNumber : sSerialNumber = "161BC4C0000300002EA8" ' NIIAS
'Dim sSerialNumber : sSerialNumber = "28A2E22700020002B52F"

' Укажите правильный адрес службы штампов времени.
'Dim sTSAAddress : sTSAAddress = "http://cryptopro.ru/tsp/"
Dim sTSAAddress : sTSAAddress = "http://tsp.pki.transtk.ru/tspca1/tsp.srf"

Dim oSigner
Set oSigner = CreateObject("CAdESCOM.CPSigner")
oSigner.Certificate = GetSignerCertificate(sSerialNumber)

Dim oSignedData
Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")
oSignedData.Content = "Some very significant message"

Dim sSignedData
' Создание и проверка подписи CAdES BES
sSignedData = oSignedData.SignCades(oSigner, CADES_BES, False, CAPICOM_ENCODE_BASE64)
oSignedData.VerifyCades sSignedData, CADES_BES, False
'sSignedData = oSignedData.SignCades(oSigner, CADES_DEFAULT, False, CAPICOM_ENCODE_BASE64)
'oSignedData.VerifyCades sSignedData, CADES_DEFAULT, False

' Создание параллельной подписи CAdES X Long Type 1
sSignedData = oSignedData.CoSignCades(oSigner, CADES_DEFAULT, CAPICOM_ENCODE_BASE64)

' Проверка полученных параллельных подписей на соответствие CAdES BES
oSignedData.VerifyCades sSignedData, CADES_BES, False

' Дополнение подписи CAdES BES до подписи CAdES X Long Type 1 (вторая
' подпись остается без изменения, так как она уже CAdES X Long Type 1)
sSignedData = oSignedData.EnhanceCades(CADES_DEFAULT, sTSAAddress, CAPICOM_ENCODE_BASE64)

' Проверка полученных параллельных подписей на соответствие CAdES X Long Type 1
oSignedData.VerifyCades sSignedData, CADES_DEFAULT, False

Function GetSignerCertificate(SerialNumber)
Set GetSignerCertificate = Nothing
Dim oCert
Dim oStore
Set oStore = CreateObject("CAPICOM.Store")
oStore.Open CAPICOM_CURRENT_USER_STORE
For Each oCert In oStore.Certificates
If (oCert.SerialNumber = SerialNumber) Then
Set GetSignerCertificate = oCert
Exit For
End If
Next
End Function

Function CreateFile (sFileName, sContent)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim NewFile
Set NewFile = fso.CreateTextFile(sFileName, True)
NewFile.WriteLine(sContent)
NewFile.Close
End Function

Попробуйте получить штамп времени от службы штампов http://tsp.pkitrans.ru/tspca1_niias/tsp.srf при помощи tsputil. Сохраните полученный штамп с расширением .tsr, чтобы потом открыть штамп для просмотра.