ReDim Array Qusetion "EASY"

[Alakazam]

I have a series of buttons and an array"array()"
Each button has a corrisponding "Name" associated with it.
When each Button is clicked I need it to add one row to my array and Fill that row with the corrisponding Name, yet keep all previouse names in the array.

I Know this code will cause some kind of out of bound error due to trying to add to an array that is full but I dont know how to get arround it.

Dim array( ) As String

Dim i As Integer

cmdAddSteve_Click( )
i = UBOUND(array( )) + 1
array(i ) = “Steve”
End Sub

cmdAddJohn_Click( )
i = UBOUND(array()) + 1
array(i ) = “John”
End Sub

cmdAddSusan_Click( )
i = UBOUND(array()) + 1
array(i ) = “John”
End Sub