Net Pay Problem Code

Private Sub cmdNetPay_Click()

    Dim sngGrossPay As Single

    Dim sngDeductions As Single

    Dim sngNetPay As Single

    sngGrossPay = InputBox("Please Enter Gross Pay(9999.99)", _

        "Gross Pay")

    sngDeductions = InputBox("Please Enter Deduction(9999.99)", _

        "Deductions")

    sngNetPay = NetPay(Val(sngGrossPay), Val(sngDeductions))

    MsgBox "Net Pay is $" & Str(sngNetPay), vbOKOnly, "Net Pay Amount"

End Sub

Public Function NetPay(GrossPay As Single, Deductions As Single) _

    As Single

    NetPay = GrossPay - Deductions

End Function