Encriptar a alfanumericos (0-9, A-Z)

[Keyenight]

Si quieres encriptar soló algunas letras o números usa un truco 2 cadenas de string y Mid para buscar extraer la letra a reemplazar así:

Código:

    Function Encript(ByVal value As String) As String
        Dim cadena1 As String = "0123456789", _
            cadena2 As String = "ºª|@#~€¬{}", _
            cont As Integer = 0
        For Each value2 As String In value
            cont = cont + 1
            value = value.Replace(Mid(cadena1, cont, 1), Mid(cadena2, cont, 1))
        Next
        Return value
    End Function

La que desincripta piensa que puedes hacer está facil analiza la que te di tambien.