Private Sub Form_Load()
Dim intCount As Integer, intIndex As Integer
Dim pclEncryption As Encrypt
Dim strCipherText As String, strOutput As String
 
  Set pclEncryption = New Encrypt
  With pclEncryption
    .UserName = "UserName"
    .LizenzKey = "LicenceKey"
    .Mechanism = AES256
    .Mode = OFB
    '           12345678901234567890123456789012
    .KeyData = "*GeheimGeheimGeheimGeheimGeheim*"
    '      12345678901234567890123456789012
    .IV = "**GeheimerInitializationVector**"
 
    For intCount = 0 To 2
      Call .Encrypt("Test-Text", strCipherText)
      strOutput = ""
      For intIndex = 1 To Len(strCipherText)
        strOutput = strOutput & Right$("0" & Hex$(Asc(Mid$(strCipherText, _
          intIndex, 1))), 2) & " "
      Next intIndex
      Debug.Print strOutput
    Next intCount
 
  End With
  Debug.Assert 0
 
End Sub