дано действительное положительное число. дан закон, по которому задана послед. надо найти первый встретившийся элемент, удовлет неравенство

Private Sub Command1_Click()
Dim n, i As Integer, E As Single
Dim y(0 To НЕЗНАЮ)
E = InputBox(" введите действительное положительное число")
y(0) = 1
For i = 1 To НЕЗНАЮ
y(i) = (2 - (y(i - 1)) ^ 3) / 5
If Abs(y(i) - y(i - 1)) < E Then
Text1.Text = "ответ" & y(i)
Else
Next
End If
End Sub

Private Sub Command1_Click()
Dim i As Integer, E As Single
Dim y() As Single
E = InputBox(" введите действительное положительное число")
y(0) = 1
i = 1
Do
y(i) = (2 - (y(i - 1)) ^ 3) / 5
i = i + 1
Loop Until Abs(y(i) - y(i - 1)) < E
Label3.Caption = "ответ" & y(i)
End Sub

Private Sub Command1_Click()
Dim i As Integer, E, n, g As Single
Dim y() As Single
E = InputBox(" введите действительное положительное число")
i = 0
Do
ReDim y(0 To i) As Single
i = i + 1
y(0) = 1
y(i) = (2 - (y(i - 1)) ^ 3) / 5
g = y(i) - y(i - 1)
n = Abs(g)
Loop Until n < E
MsgBox ("ответ" + y(i))
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer, E, n, g As Single
Dim y() As Double
E = InputBox(" введите действительное положительное число", "", 0.000005)
Cls
i = 0
ReDim y(i)
y(0) = 1
Do
i = i + 1
ReDim Preserve y(i)
y(i) = (2 - y(i - 1) ^ 3) / 5
Print y(i), y(i - 1), CDec(Abs(y(i) - y(i - 1)))
Loop Until Abs(y(i) - y(i - 1)) < E
MsgBox "ответ  " & y(i)
End Sub