Ayuda en como Desencriptar cadena

Hola Amigos tengo un pequeño problema, he encriptado una cadena
usando la siguiente rutina:

Imports System.Security.Cryptography

Private Function Encrypt2(ByVal vCadena As String) As String
Dim clearBytes As [Byte]()
clearBytes = New UnicodeEncoding().GetBytes(vCadena)
Dim hashedBytes As [Byte]() =
CType(CryptoConfig.CreateFromName("MD5"),
HashAlgorithm).ComputeHash(clearBytes)
Dim hashedText As String = BitConverter.ToString(hashedBytes)
Return hashedText
End Function

MI PREGUNTA ES: ¿COMO PUEDO REGRESAR AL VALOR INICIAL, ALGUIEN PODRIA
AYUDARME? ES DECIR ¿CUAL SERIA LA RUTINA PARA DESENCRIPTARLO?

GRACIAS