Вычислить значение выражения, используя цикл - VB

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

помогите завтра сдавать Вычислить y=1-x^2/2!+x^4/4!-x^6/6!+...+x^20/20!

Решение задачи: «Вычислить значение выражения, используя цикл»

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

                            Private Sub Command1_Click()
Dim i As Integer, x As Integer, y As Double, s As Integer
x = InputBox("Введите значение х ", " x = ", 16): y = 1: s = 1
For i = 2 To 20 Step 2
   s = -s: y = y + s * (x ^ i / fakt(i))
Next i
   MsgBox " Y =  " & y
End Sub
Function fakt(n)
  If n = 1 Then fakt = 1 Else fakt = fakt(n - 1) * n
End Function
                        