Const CADESCOM_XML_SIGNATURE_TYPE_TEMPLATE = 2
function SignCreate(oCertificate, dataToSign) 
        Dim oSigner
	Set oSigner = CreateObject("CAdESCOM.CPSigner")
        oSigner.Certificate = oCertificate
        Dim oSignedXML
        Set oSignedXML = CreateObject("CAdESCOM.SignedXML")
        oSignedXML.Content = dataToSign
        oSignedXML.SignatureType = CADESCOM_XML_SIGNATURE_TYPE_TEMPLATE

        Dim sSignedMessage : sSignedMessage = ""
        Set    sSignedMessage = oSignedXML.Sign(oSigner)
        SignCreate = sSignedMessage
 End Function