Problema array

[v1Tu]

Mi problema es el siguiente, he creado dos paneles que se rellenan con textbox segun el SelectItem de un combobox, hasta hay todo bien porque se me rellenan, pero por los motivos que sean cambio el combobox.SelectItem a otra cifra superior, pues el array pierde el ultimo valor y no consigo hacer que se mantenga. Aqui os pongo el codigo del ComboBox1_SelectedIndexChanged.

For f = 0 To ComboBox1.SelectedItem - 1
ReDim Preserve y(f)
y(f) = New TextBox
y(f).Name = "txtPresNum" & f
'y(f).Text = y(f).Name
y(f).TextAlign = HorizontalAlignment.Right
y(f).Width = 69
If f <> 0 Then
y(f).Top = y(f - 1).Top + y(f).Height + 3
End If
Panel2.Controls.Add(y(f))
Next

Despues tengo un boton que suma los valores de todos los textbox de dicho panel, la primera vez que le doy me hace bien el calculo, en cambio si aumento el selectitem se pierde el ultimo valor del primer array echo y por lo tanto al darle a calcular pierde algunos valores. Aqui pongo el sumatorio del boton calcular.

For i = 0 To UBound(y)
subtotal = subtotal + Val(y(i).Text)
Next

Espero haberme explicado lo mejor posible!