Load a listbox from a textfile?

' 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\Roster1\Roster1.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
             StudentNum.Text = iCount
            Input #iFileNo, sFileText
              'show the text (you will probably want to replace this line as appropriate to your program!)
            Attendance.StudentNameLBL(iCount).Caption = sFileText
          Loop
              'close the file (if you dont do this, you wont be able to open it again!)
          Close #iFileNo