QUOTE(PsychoCoder @ 23 May, 2009 - 07:59 PM)

I see you declaring k and temp, where are you declaring numcourses?
[code]Dim k As Integer
Dim temp As String
ReDim Preserve students(arraysize).courses(numcourses)
If numcourses = 0 Then
'redim students(arraysize).courses(0)
ListBox1.Items.Clear()
End If
students(arraysize).first = UCase(TextBox1.Text)
students(arraysize).last = UCase(TextBox2.Text)
students(arraysize).semester = UCase(TextBox3.Text)
students(arraysize).HSgradyear = UCase(TextBox4.Text)
students(arraysize).IDnumber = UCase(TextBox5.Text)
students(arraysize).courses(numcourses).coursenumber = UCase(TextBox6.Text)
students(arraysize).courses(numcourses).instructor = UCase(TextBox7.Text)
temp = Str(numcourses + 1) & ") " & students(arraysize).courses(numcourses).coursenumber & " " & students(arraysize).courses(numcourses).instructor
'ListBox1.Items.Add("ID#: " & "" & students(arraysize).IDnumber)
ListBox1.Items.Add(temp)
numcourses = numcourses + 1
'TextBox1.Text = ""
'TextBox2.Text = ""
'TextBox3.Text = ""
'TextBox4.Text = ""
'TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox7.Focus()[code]