Помогите решить две задачи на цикл? - VB

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

1) Простой цикл Вычислить: y=-1/x + 1/3x^3 - 1/ 5x^5 + 1/7x^7 -.....+ 1/23x^23 Значение Х задать вводом. Делаю в юзер форме, вот что-то набросал, но выдает ошибку...(type mismatch)

Private Sub CommandButton1_Click()
Dim x As Double, y As Double,
x = Val(TextBox1)
If x = 0 Then
MsgBox "ne nol`"
End If
y = 0
For i = 1 To 23 Step 2
y = y + (-1) ^ i(1 / (i(x ^ i)))
Next i
MsgBox "summa ryada ravna " & y
End Sub

2) Найти сумму тех членов последовательности cos(x), cos(x+2h), cos(x+12h) , которые по абсолютной величине больше 0,5. x и h задать вводом Это просто без понятия как делать)) Помогите пожалуйста) последний зачет осталось поставить)

Решение задачи: «Помогите решить две задачи на цикл?»

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

                            dim x as Double, h as Double, sumCos as Double
dim i as Integer
x=val(Inputbox("ВВЕДИТЕ x"))
h=val(Inputbox("ВВЕДИТЕ h"))
sumCos=0
for i=0 to 7
   if abs(cos(x+2*i*h))>0.5 then sumCos=sumCos+cos(x+2*i*h)
next i
msgbox sumCos
                        