[Highlight=VB]Option Explicit
Dim strStudent() As String

Private Sub Form_Load()
Dim strStdAmt As Long
strStdAmt = 1000
ReDim test(strStdAmt, 1000)

End Sub[/VBCDOE]

EDIT: I'm too slow