Как расшифровать txt и каждую строчку внести в массив

Module Module1
    Public Key As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16} 'Ключ
    Public IV As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16} 'Вектор инициализации
 
    Public Sub Encrypt(ByVal fName As String, ByVal txtEncrypt As String)
        Dim RMCrypto As New Security.Cryptography.RijndaelManaged
        Dim fs As New IO.FileStream(fName, IO.FileMode.Create)
        Dim CryptStream As New Security.Cryptography.CryptoStream(fs, RMCrypto.CreateEncryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Write)
        Dim SWriter As New IO.StreamWriter(CryptStream)
        SWriter.Write(txtEncrypt)
        SWriter.Close()
        fs.Close()
        CryptStream.Close()
    End Sub
 
    Public Function Decrypt(ByVal fName As String) As String
        Dim RMCrypto As New Security.Cryptography.RijndaelManaged
        Dim fs As New IO.FileStream(fName, IO.FileMode.Open)
        Dim CryptStream As New Security.Cryptography.CryptoStream(fs, RMCrypto.CreateDecryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Read)
        Dim SReader As New IO.StreamReader(CryptStream)
        Decrypt = SReader.ReadToEnd()
        SReader.Close()
        fs.Close()
        CryptStream.Close()
    End Function
End Module