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