Динамический массив - VB

Формулировка задачи:

смысл программы заключается в том что при введении значений в Input box нажимаем enter затем генерируем число и выводим на печать после этого вводим вводим значение которое увеличивает размер массива и нажимаем Redim после выведения на печать мы видим сгенерированые числа + (для примера я увеличил массив на разряда) новое значение равное нулю. Помогите написать код который вместо нулевых значений после Redim будут тоже сгенериваные числа Заранее благодарен

Option Explicit
Dim delta As Integer
Dim mydynarr() As Integer
Dim arrsize As Integer
Dim i As Integer
Dim maxindex As Integer
Dim newsize As Integer
 
Private Sub cmdclear_Click()
txtout.Text = ""
End Sub
 
Private Sub cmdEnter_Click()
arrsize = Val(txtInput.Text)
ReDim mydynarr(arrsize - 1)
End Sub
 
Private Sub cmdLoad_Click()
Randomize
maxindex = UBound(mydynarr)
For i = 0 To maxindex
mydynarr(i) = Rnd * 100
Next i
End Sub
 
Private Sub cmdPrint_Click()
For i = 0 To UBound(mydynarr)
txtout.Text = txtout.Text + "mydynarr(" + CStr(i) + ") = " + CStr(mydynarr(i)) + vbCrLf
Next i
End Sub
 
Private Sub cmdredim_Click()
delta = Val(txtredim.Text)
newsize = UBound(mydynarr) + delta
ReDim Preserve mydynarr(newsize)
 
End Sub

Решение задачи: «Динамический массив»

textual
                            Листинг программы 
                        

                            Private Sub cmdredim_Click()
delta = Val(txtredim.Text)
newsize = UBound(mydynarr) + delta
ReDim Preserve mydynarr(newsize)
 
For i=newsize-delta+1 to newsize
  mydynarr(i) = Rnd * 100
next i
End Sub
                        