(VB.NET UWP/WinRT) Base64 Encode/Decode a String

VB.NET UWP/WinRT example to base-64 encode and decode a string.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim bd As New Chilkat.BinData

Dim s As String = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

Dim success As Boolean = bd.AppendString(s,"utf-8")

Dim strBase64 As String = bd.GetEncoded("base64")
Debug.WriteLine(strBase64)

' To decode:
Dim bd2 As New Chilkat.BinData
bd2.AppendEncoded(strBase64,"base64")

Dim decoded As String = bd2.GetString("utf-8")
Debug.WriteLine(decoded)