Программка запускается но не считает, Private Sub CommandButton1_Click() подсвечин жолтым цветом, написано на VBA .Очень

Question

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

Милена Илюшина · Accepted Answer

вот работает: 
<img src="//sprtqa.b-cdn.net/download/df79e4e30c5c5714a957362ed63ed09d_i-457.jpg" > 
вот исправленный код: 
Private Sub CommandButton1_Click() 
a = Val(TextBox1.Text) 
b = Val(TextBox2.Text) 
h = Val(TextBox3.Text) 
Label1.Caption = "" 
Label2.Caption = "" 
For x = a To b Step h 
If x < -3.14 Then 
f = Tg ^ 2 * (x) 
Else 
If -3.14 <= 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 
 
А на будущее просьба к вам - все таки пишите сюда текст ошибки. 
у меня ругался на ваши caption 
заменил на штатные и все прошло как по маслу