В чем ошибка?

[krst]

Я не специалист в програмировании, может подскажите, что здесь не правильно. В миниатюрах: задание и моё, скорей всего неправильное решение. А это то что у меня получилось:

Private Sub CommandButton1_Click() 
a = Val(TextBox1.Text) 
b = Val(TextBox2.Text) 
i = Val(TextBox3.Text) 
UserForm1.Label4.Captiоn = "" 
UserForm1.Label5.Captiоn = "" 
For x = a To b Step i 
If x < -p Then 
f = Tan(x) ^ 2 
Else 
If x >= -p And x <= 0 Then 
f = x - 2 * Sin(0.5 * x) 
Else 
f = 2.25 
End If 
End If 
UserForm1.Label4.Captiоn = UserForm1.Label4.Captiоn & Round(x, 2) & Chr(13) 
UserForm1.Label5.Captiоn = UserForm1.Label5.Captiоn & Round(f, 4) & Chr(13) 
Next x 
End Sub

В итоге ни чего не считает, выделяет и пишет ошибку.

P.S. Добавил файл с моим решением...

[VictorM]

Тут скорее всего не "миниатюру" нужно смотреть, а файл с формой и кодом.
Поверьте, никто не будет сидеть и изобретать Вашу форму, чтобы проверить код.

[doober]

Слово по кодам Caption "67-97-112-116-105-111-110"
а здесь ваше Captiоn '"67-97-112-116-105-238-110"

разбирайтесь у себя с настройками
Рабочий код,в правильность расчетов не вникал

Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
i = Val(TextBox3.Text)
Label4.Caption = ""
Label5.Caption = ""
For x = a To b Step i
If x < -p Then
f = Tan(x) ^ 2
Else
If x >= -p And x <= 0 Then
f = x - 2 * Sin(0.5 * x)
Else
f = 2.25
End If
End If
Label4.Caption = Label4.Caption & Round(x, 2) & Chr(13)
Label5.Caption = Label5.Caption & Round(f, 4) & Chr(13)
Next x

End Sub