Индекс вне границ массива при дешифровке данных

Public Class Form1
    Dim Key As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16} 'Ключ
    Dim IV As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16} 'Вектор инициализации 
    Dim Коллекция As New Collection
    Dim Q() As String
    Dim Ответ() As String
    Dim ТекПоз As Integer
    Dim Прав As Integer = 0
    Dim Ошиб As Integer = 0
    Public Function Decrypt(ByVal fName As String)
        Dim txt 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)
        txt = SReader.ReadToEnd()
        SReader.Close()
        fs.Close()
        CryptStream.Close()
        Return txt
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OpenFileDialog1.ShowDialog()
 
 
        Q = IO.File.ReadAllLines(OpenFileDialog1.FileName, System.Text.Encoding.Default)
        Q = Split(Decrypt(OpenFileDialog1.FileName), "'")
        For I As Integer = 0 To Q.Length - 1
            Коллекция.Add(Q(I))
        Next
        Randomize()
        NextQ()
    End Sub
    Sub NextQ()
        If Коллекция.Count > 0 Then
            ТекПоз = Rnd() * (Коллекция.Count - 1) + 1
            Ответ = Split(Коллекция(ТекПоз), "'")
            Label1.Text = Ответ(0)
            CheckBox1.Text = Ответ(1) : CheckBox2.Text = Ответ(2) : CheckBox3.Text = Ответ(3) : CheckBox4.Text = Ответ(4)
        Else
            MsgBox("Тест окончен" & vbCrLf & "Правильных ответов: " & Прав & vbCrLf & "Ошибок: " & Ошиб, MsgBoxStyle.Exclamation)
            Close()
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Rght As Boolean = True
        If Button1.Text = "Ответить" Then
            For I As Integer = 1 To 4
                If Not Strings.Mid(Ответ(5), I, 1) = CType(Me.Controls("CheckBox" & I), CheckBox).Checked Then
                    Me.Controls("CheckBox" & I).ForeColor = Color.Red
                    Rght = False
                Else : Me.Controls("CheckBox" & I).ForeColor = Color.Green
                End If
            Next
            Коллекция.Remove(ТекПоз)
            Button1.Text = "ОК и далее >>"
            If Rght = True Then
                Прав += 1
            Else
                Ошиб += 1
            End If
        Else
            ClearCh()
            NextQ()
            Button1.Text = "Ответить"
        End If
    End Sub
    Sub ClearCh()
        For I As Integer = 1 To 4
            CType(Me.Controls("CheckBox" & I), CheckBox).Checked = False
            CType(Me.Controls("CheckBox" & I), CheckBox).ForeColor = Color.Black
        Next
    End Sub
End Class