Получение переменной в цикле - VB

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

Подскажите как в цикле полученную новую переменную записывать в отдельную переменную?

Решение задачи: «Получение переменной в цикле»

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

                            Private Sub Command1_Click()
    Find
End Sub
 
Sub Find()
    Dim x  As Double, y() As Double
    Dim i As Integer, s As String
 
    For x = 16 To 26 Step 0.5
         i = i + 1                'считаем итерации
         ReDim Preserve y(1 To i) 'увеличиваем размер массива
         y(i) = 10 * x * x - 10   'вычисляем очередное значение у и записываем в массив
         s = s & "x= " & Round(x, 2) & vbTab & "y (" & i & ") = " & Round(y(i), 2) & vbCrLf
    Next x
 
    MsgBox s
 
End Sub
                        