Income Tax Problem Code

Private Sub cmdIncomeTax_Click()

    Dim sngGross As Single

    Dim sngIncomeTax As Single

    sngGross = Val(InputBox("Please Enter Gross Salary(99999)", _

        "Gross Salary Amount"))

    If sngGross < 8000 Then

        sngIncomeTax = sngGross * 0

    ElseIf sngGross >= 8000 And sngGross <= 50000 Then

        sngIncomeTax = sngGross * 0.15

    Else

        sngIncomeTax = sngGross * 0.3

    End If

    MsgBox "Gross Pay $" & Str(sngGross) & vbNewLine & "Income Tax $" _

       & Str(sngIncomeTax), vbOKOnly, "Gross Pay and Tax"

End Sub