text files???

I was wondering if someone could tell me how to read a text file and put it into an array?? the text file is something like :
9
bill
8
bill
34
john

I need to read the file and then put the numbers in an array and the names into another.
I know its probably simple but Im not as smart as the average bear!!! Please help

reading file into array sample

VB Code:

Private Sub Command1_Click()
    Dim sArr() As String
    Dim i As Integer
    Open "C:\TEST.TXT" For Input As #1
        sArr = Split(Input(LOF(1), 1), vbCrLf)
    Close #1
    For i = 0 To UBound(sArr())
        Debug.Print sArr(i)
    Next i
End Sub

Thanx but I wanted to do it something like this

Dim name As String
Dim seat As String
Dim i As Integer
txtIndex = row & SeatNo

Open "A:seat.txt" For Input As #1

Do While Not EOF(1)

Input #1, seat
lstSeat.AddItem txtSeatNo
ReDim Preserve CustSeat(0 To 71)

txtSeatNo = seat

Input #1, name
lstName.AddItem txtName()
'CustName.AddItem
ReDim Preserve CustName(0 To 71)

txtName() = CustName(0, 71)
'i = i + 1

Loop

Close #1

The array needs to be in a module

just do what peet has done and then add the items to the lst controls after you've read the file. or into the arrays that you want to use and then onto the controls.