Necesito ayuda con una "Descriptada" :P

Código:

'descifro
        Dim DESencriptador As ICryptoTransform = DATOS.CreateDecryptor(D.Key, D.IV)
        Dim ms As New MemoryStream()
        Dim cs As New CryptoStream(ms, DESencriptador, CryptoStreamMode.Write)
        cs.Write(leidotxt, 0, leidotxt.Length)
        Dim Mensaje As String = uni.GetString(ms.ToArray())
        'Dim Mensaje As String = New StreamReader(DEScryptoStream).ReadToEnd

Ese es el fucking codigo...
Les explico lo que falta..

D.Key y D.IV viene de un generador que esta creado arriba, anda a la perfeccion...
LEIDOTXT es un Byte() en donde tengo guardado el codigo a DESCRIPTAR...
Estoy teniendo GRAVES problemas... o sea... la variable "Mensaje" queda vacia..
Alguien me puede dar una mano??

Si me ayudan, ya podre termina el ptrograma.. me esta faltando solo esoooo..

Se los suplicoo!!!

PD.: Al software termina lo subo en http://www.brodasoft.com.ar, se va a llamar: RemembIt...
Descarguenlo

Y los que me fueron ayudando, estan apareciendo en el costado derecho de la web

Saludos!!