VBTaxCalc

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim grosspay As Double = TextBox1.Text
        Dim K401 As Double = TextBox2.Text
        Dim AGI As Double = grosspay - K401
        Dim local As Double
        If CheckBox1.Checked = False Then
            local = AGI * 0.01
        ElseIf CheckBox1.Checked = True Then
            local = AGI * 0.02
        End If
        Dim federal As Double
        If AGI <= 8500 Then
            federal = 0
        ElseIf AGI >= 8501 And AGI <= 29000 Then
            federal = 0.1
        ElseIf AGI >= 29001 And AGI <= 75000 Then
            federal = 0.15
        ElseIf AGI >= 75001 And AGI <= 125000 Then
            federal = 0.18
        ElseIf AGI >= 125001 Then
            federal = 0.25
        End If
        Dim state As Double = 0.0307
        Dim totaltax As Double = federal + state + local
        Dim totalpay As Double
        If AGI <= 75000 Then
            totalpay = (AGI * 0.062) + (totaltax * AGI)
        ElseIf AGI >= 75000 Then
            totalpay = (75000 * 0.062) + (AGI - 75000) * totaltax
        End If
        Dim finalamount As Double = AGI - totalpay
        output.Text = "The total amount you have after taxes is : " & finalamount

    End Sub
End Class