С использованием оператора цикла For вычислить значения выражений - VB

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

С использованием оператора цикла For вычислить значения выражений, заданных ниже. x— произвольное число, определенное в программе. y=x*cos^20(x*cos^19(x*...cos^2(x*cos(x)))...) Код получившейся у меня программы:

Private Sub Command1_Click()
Dim x As Single 
x = 0.1
Dim i As Byte 
Dim y As Single 
y = 1
For i = 1 To 20
        y = y * (x * (Cos(x) ^ i))
Next i
Label3.Caption = CStr(y)
End Sub

Хотелось бы узнать ваше мнение о правильности написания программы и о возможных ошибках.

Решение задачи: «С использованием оператора цикла For вычислить значения выражений»

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

                            Dim y, x As Single
 x = 0.1
 y = x * Cos(x)
 For i = 2 To 20
  y = Cos(y) ^ i * x
 Next i
MsgBox y
                        