VB.net ToBase64String

Dim base64Decoded As String = "ByCAD"
        Dim base64Encoded As String
        Dim data As Byte()
        data = System.Text.ASCIIEncoding.ASCII.GetBytes(base64Decoded)
        base64Encoded = System.Convert.ToBase64String(data)
        MsgBox(base64Encoded)

Please follow WeChat's public account ByCAD