Private Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

' Converts Base64 format to HEX-code. This sample is used when retrieving information from
' Exchange eventsink that should be stored and used within .net projects and databases.
' Pelle Johansson, pellesoft.se
' --

Private Sub Command1_Click()

Text2.Text = Base64toHex(Text1.Text)

End Sub