Private Sub Command1_Click()
t = Val(Text1.Text)
G = Val(Text2.Text)
A = Val(Text3.Text)
If t * G <= A Then
t = 0
Else
t = t * G - A
End If
Text4.Text = Str(t)
End Sub