Datos de un Listbox a un Array VB 6.0

HOLA Y Saludos

necesito pasar los datos de una listbox a un array los datos son numéricos per me da un error y es el de Subíndice fuera de intervalo y no se por que necesito ayuda 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