[RESOLVED] Load code looks for array element 31?

Public Sub LoadRoster()
 
    ' THIS CODE LOADS The Students Names TO the Label Captions
    Dim sFileText As String
        Dim iFileNo As Integer
        Dim iCount As Integer
          iFileNo = FreeFile
              'open the file for reading
             
          Open App.Path & "\StudentRosters\Roster" & RosterNumTXT.Text & "\Roster" & RosterNumTXT.Text & ".txt" For Input As #iFileNo
        'change this filename to an existing file!  (or run the example below first)
              'read the file until we reach the end
          Do While Not EOF(iFileNo)
           iCount = iCount + 1
            Input #iFileNo, sFileText
              'show the text (you will probably want to replace this line as appropriate to your program!)
            BankV3.StudentLBL(iCount).Caption = sFileText
          Loop
              'close the file (if you dont do this, you wont be able to open it again!)
          Close #iFileNo
End Sub