Private Sub cmdClear_Click()
Dim a, s, d, per, zp, vidr, opl As Single
a = Val(txtArgument.Text)
s = Val(txtArgument.Text)
d = Val(txtArgument.Text)
per = Val(txtArgument.Text)
zp = Val(txtArgument.Text)
vidr = Val(txtArgument.Text)
opl = Val(txtArgument.Text)
data = Worksheets("_vba").Range("c2").Value
zp = d * s
txtFunction.Text = Str(zp)
vidr = zp * 40
txtFunction.Text = Str(vidr)
opl = zp - vidr
txtFunction.Text = Str(ipl)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, s, d, per, zp, vidr, opl As Integer
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

Private Sub Button1_Click()
Dim at, st, dt, pert, zpt, vidrt, oplt As Integer
sy = 100
ay = 120
at = Val(a.Text)
st = Val(s.Text)
dt = Val(d.Text)
pert = Val(per.Text)
zpt = Val(zp.Text)
vidrt = Val(vidr.Text)
oplt = Val(opl.Text)
datat = Worksheets("_vba").Range("c2").Value
zpt = dt * st
pert = (sy / ay) * 100
vidr = zpt * 0.4
oplt = zpt - vidrt
End Sub