ошибка в коде

[noscere]

Помогите, пожалуйста, разобраться с кодами. Сейчас выделилось красным первая строка и написано "compile error expected end of statement". Что я не так делаю?



Private Sub Button1_Click()
Dim a As Single, s As Single, d As Single
Dim per As Single, zp As Single, vidr As Single, opl As Single
a = Val(a.Text)
s = Val(s.Text)
d = Val(d.Text)
per = Val(per.Text)
zp = Val(zp.Text)
vidr = Val(vidr.Text)
opl = Val(opl.Text)
data = Worksheets("_vba").Range("c2").Value
zp = d * s
per = (s / a) * 100
vidr = zp * 0.4
opl = zp - vidr
End Sub

Всмем спасибо:( Вопрос решили