Sub que encripta un string con DES y lo guarda en un archivo

'En este código, ClaveCriptográfica es una constante que tiene la 'palabra clave' en base a la cual se encriptará nuestro string y PathArchivo es una variable que contiene la dirección del archivo que se sobrescribirá para guardar lo encriptado.
'No voy a explicar el código parte por parte, por que varios de estos métodos no estoy segura de lo que hacen (me basé en las instrucciones de la msdn para hacerlo, y aún así me tomó un buen tiempo que deje de tirar error xD).

Private Sub Encriptar_y_Guardar(ByVal Datos As String)
'
' Crear base de encriptador
Dim DES As New DESCryptoServiceProvider()
' Crear llave
DES.Key() = ASCIIEncoding.ASCII.GetBytes(ClaveCriptografica)
'Establecer el vector de inicialización.
DES.IV = ASCIIEncoding.ASCII.GetBytes(ClaveCriptografica)
'
'
'Flujo de datos
Dim Flujo As New FileStream(Path_Archivo, FileMode.Create)
'crear encriptador
Dim Encriptador As ICryptoTransform = DES.CreateEncryptor(DES.Key, DES.IV)
'Crear una secuencia de cifrado
Dim FlujoEncriptador As New CryptoStream(Flujo, Encriptador, CryptoStreamMode.Write)
'Leer el texto del archivo en la matriz de bytes
Dim Entrada() As Byte = ASCIIEncoding.UTF8.GetBytes(Datos)
Flujo.Read(Entrada, 0, Entrada.Length)
'Escribir el archivo cifrado con DES
FlujoEncriptador.Write(Entrada, 0, Entrada.Length)
FlujoEncriptador.FlushFinalBlock()
Flujo.Close()
'
End Sub