Arrays

[doggylvr]

OK. I give up. I am trying to use my VB6 logic in VBNET and failing miserably. I wrote the following and expected to get a variable into FUL(), AAB(), and PWX()
What did I do wrong?

Dim FUL() As String, AAB() As String, PWX() As String
Dim FILE1 As String = "C:\PERSONS\NAMES"

LNAME = InputBox("Type your LAST NAME then push <Enter>", "TYPE YOUR LAST NAME", "Last Name")

Dim objReader As New System.IO.StreamReader(FILE1)  ' FIND STUDENT IN NAMES
        For I = 1 To CTR
            BA = objReader.ReadLine
            FLL = objReader.ReadLine
            AB = objReader.ReadLine
            PW = objReader.ReadLine
            BA = UCase(BA)
            TEST = BA.Substring(0, Len(LNAME))
            If TEST = FNAME Then
                ReDim Preserve FUL(1), AAB(1), PWX(1)
                FUL(NCTR) = FLL : AAB(NCTR) = AB : PWX(NCTR) = PW
                NCTR = NCTR + 1  ' NCTR = # STUDENTS MATCHING TYPED NAME
            End If
        Next

[Killer42]

What were the values of CTR, NCTR and FNAME when all this started?

(Warning: I'm a VB6 programmer too, and don't know VB.Net yet)