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

[oldmcgroin]

Option Explicit
 
Dim Numbers() As Integer
Dim Index As Integer
 
Private Sub cmdAddToArray_Click()
 
Dim Number As Integer
 
If Index = 0 Then
 
ReDim Numbers(0)
Else
 
ReDim Preserve Numbers(UBound(Numbers) + 1)
 
End If
 
Index = Index + 1
 
Number = txtNumber.Text
txtNumber.Text = ""
txtNumber.SetFocus
 
 
 
End Sub
 
Private Sub CmdDisplay_Click()
Dim Element As Integer
lstNumbers.Clear
For Element = 0 To Index
lstNumbers.AddItem Numbers(Element)
Next Element
 
End Sub
 
Private Sub cmdFindNumber_Click()
Dim Element As Integer
Dim Found As Boolean
Dim SearchNumber As Integer
Element = 1
Found = False
SearchNumber = txtSearchNumber.Text
 Do While (Found = False) And (Element <= Index)
 
If Numbers(Element) = SearchNumber Then
Found = True
Else
Element = Element + 1
End If
Loop
If Found Then
lblDisplaySearch.Caption = "This number IS in the array"
Else
lblDisplaySearch.Caption = "This number is NOT in the array"
End If
 
 
 
End Sub

hey guys, i have this code but whenever i click "display", which shows the numbers i entered into the array i get a "subscript out of range" error on the 'lstNumbers.AddItem Numbers(Element)' line.

can you see whats wrong?

thanks