[VB.Net] Encode / Decode String VB

 Public Function Encode(ByVal inString As String) As String
        Dim enc As New System.Text.UnicodeEncoding
        Dim buffer As Byte() = enc.GetBytes(inString)
        Encode = Convert.ToBase64String(buffer)
    End Function

    Public Function Decode(ByVal inString As String) As String
        Dim enc As New System.Text.UnicodeEncoding
        Dim buffer As Byte() = Convert.FromBase64String(inString)
        Decode = enc.GetString(buffer)
    End Function