vb perhitungan pajak

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ph, pajak, PHSP As Double
Dim n1, n2, n3 As Single


ph = TextBox1.Text

If RadioButton1.Checked = True Then 'PNS
n1 = 0.03
n2 = 0.05
n3 = 0.07
End If

If RadioButton2.Checked = True Then 'Swasta
n1 = 0.05
n2 = 0.1
n3 = 0.15
End If
If RadioButton3.Checked = True Then 'Pengusaha
n1 = 0.1
n2 = 0.15
n3 = 0.2
End If

If ph <= 1000000 Then
pajak = ph * n1
ElseIf ph <= 10000000 Then
pajak = ph * n2
Else
pajak = ph * n3
End If

PHSP = ph - pajak

lbpajak.Text = FormatNumber(pajak, 0)
lbphsp.Text = FormatNumber(PHSP, 0)
End Sub
End Class