Sub crypt (job As String, data As String) As String
Dim crypter As Crypter
Dim crypted As String
crypter.Initialize("a5d7g8s6a5a6s7d","2342571231")
If job="crypt" Then
crypted=crypter.encrypt(data)
End If
If job="decrypt" Then
crypted=crypter.decrypt(data)
End If
Return crypted
End Sub