Datos de un ListBox a un Array VB6.0

HOLA Y SALUDO gracias por tomarse el tiempo por contestar mi pregunta:

mi problema es este:

tengo un listbox donde ingreso unos datos numéricos y necesito pasarlo a un array pero me tira el ERROR de subíndice Fuera de intervalo y no se por que este es mi código:

Dim Vdatos() As Long
Dim Vindice As Integer
For Vindice = 0 To List1.ListCount - 1
Vdatos(Vindice) = List1.List(Vindice)
Next

ya lo revise y no se que hago mal.