subscript out of range.... what am i doing wrong?

[penagate]

Please, indent your code ...

I presume you have populated the array first before you click Display. I'm not sure what your Index variable is for but you could just use UBound instead.

Private Sub CmdDisplay_Click()
Dim i As Long
    lstNumbers.Clear
    For i = 0 To UBound(Numbers)
        lstNumbers.AddItem Numbers(i)
    Next i
End Sub