Public Function Zert_encrypt(ByVal Daten As String) As String
        If api.nienull(Daten) > "" Then
            Dim objStore As New CAPICOM.Store
            Dim objCert As New CAPICOM.Certificate
            Dim savedata As String
 
            ' NOTE: the name 'Attribute' is not a unique name
            ' and must be preceded by 'CAPICOM.'
            Dim XEncrypt As New CAPICOM.EncryptedData
            XEncrypt.KeySize = 128
 
            XEncrypt.Algorithm.Name = _
              CAPICOM.CAPICOM_ENCRYPTION_ALGORITHM.CAPICOM_ENCRYPTION_ALGORITHM_
              _3DES
            XEncrypt.Algorithm.KeyLength = _
            CAPICOM.CAPICOM_ENCRYPTION_KEY_LENGTH.CAPICOM_ENCRYPTION_KEY_LENGTH_
            _128_BITS
            XEncrypt.Content = Daten
 
            XEncrypt.SetSecret(strPassphrase)
            'savedata = XEncrypt.Encrypt()
            '**************************
 
            Zert_encrypt = savedata
        Else
            Zert_encrypt = ""
        End If
    End Function