Encriptar y Desencriptar un string

Imports System.Web

Public Function Desencriptar(ByVal password As String) As String
        Return Encoding.UTF8.GetString(Convert.FromBase64String(HttpUtility.UrlDecode(password)))
    End Function

Public Function Encriptar(ByVal password As String) As String
        Return HttpUtility.UrlEncode(Convert.ToBase64String(Encoding.UTF8.GetBytes(password)))
    End Function

fuente