This function seems logical to me and works when I use a calculator - but in this program when I enter 90,000 The response shows tax as 13,500. I'm stuck on this one HELP!


Dim Income As Single, FicaTax As String
Option Explicit

Private Sub cmdCalculate_Click()
'obtain taxable income
Income = Val(InputBox("Enter taxable income:"))
Call DisplayTax
End Sub

Public Function TaxSingle() As Single
'calculate tax amount
Select Case TaxSingle
Case 0 To 25350
TaxSingle = 0.15 * Income
Case 25350 To 61400
TaxSingle = 3802.5 + (0.28 * (Income - 25350))
Case 61400 To 128100
TaxSingle = 13896.5 + (0.31 * (Income - 61400))
Case 128100 To 278450
TaxSingle = 34573.5 + (0.36 * (Income - 128100))
Case 278450
TaxSingle = 86699.5 + (0.396 * (Income - 278450))
End Select
End Function

Public Sub DisplayTax()
'display results
FicaTax = FormatCurrency(TaxSingle)
picResult.Cls
picResult.Print "Your FICA taxes based on the single rate of"
picResult.Print "taxable income are: "; FicaTax
End Sub

Private Sub cmdExit_Click()
End
End Sub