program in visual basic to calculate Income Tax on yearly earning of a person.

Private Sub Command1_Click()
Dim q As Integer
Dim dis, totamt, r, payment As Single
q = Val(Text1.Text)
r = Val(Text3.Text)
totamt = q * r
Text4.Text = totamt
If (totamt < 500) Then
dis = 0
Text5.Text = dis
payamt = totamt - dis
Text6.Text = payment
ElseIf (totamt > 500) And (totamt <= 800) Then
dis = totamt * 0.12
Text5.Text = dis
dis = totamt - dis
Text6.Text = payment
ElseIf (totamt > 800) And (totamt <= 1500) Then
dis = totamt * 0.15
payment = totamt - dis
Text5.Text = dis
Text6.Text = payment
Else
dis = totamt * 0.2
payment = totamt - dis
Text5.Text = dis
Text6.Text = payment
End If
End Sub