Visual Basic - PROBLEMAS CON PROGRAMA

problema con este codigo
dim v (1 to 5) as integer
Dim limite As Integer
limite = Val(InputBox("introduce el milite de numeros"))

For n = 1 To limite
y = Val(InputBox("introduce un valor"))
V(n) = y
List1.AddItem Str(V(n))

If n >= limite Then
MsgBox ("no existe mas espacio")
End If

Next n
End Sub

No definas v de 1 a 5, definilo de 1 al maximo q desees dar como posibilidad, por ejemplo 1000, y controlalo antes del for...