Dim uni As New UnicodeEncoding()
        Dim KEYDE1 As Integer = 0
        Dim DATOS As New DESCryptoServiceProvider
        Dim FIN As Boolean = False
        Dim i As Integer = 0
        While FIN = False
            i = (i + 1)
            FIN = True
            Try
                KEYDE1 &= 1
                DATOS.Key = uni.GetBytes(KEYDE1)
            Catch ex As ArgumentException
                FIN = False
            End Try
            If i = 501 Then
                MsgBox("501 y no encontre nada...")
                FIN = True
            End If
        End While
        MsgBox("Opcion: " & i & "Valor: " & KEYDE1)

Dim UNICODE As New UnicodeEncoding()
        Dim DATOS As New DESCryptoServiceProvider 'aca va a estar la KEY y el IV aleatorios
        Dim xxx As String = UNICODE .GetString(DATOS.Key) 'guardo en el String XXX la key en UNICODE

'ahora la grabo en mi .txt en UNICODE
        Dim sw As New IO.StreamWriter("c:\prueba.txt", True, System.Text.Encoding.Unicode)
        sw.WriteLine(xxx)
        sw.Close()

'ahora la leo en unicode...
        Dim sr As New IO.StreamReader("c:\prueba.txt")
        Dim keyleida As String
        keyleida = sr.ReadLine()
        MsgBox(keyleida)
        sr.Close()