Gross Pay Problem Code

Private Sub cmdGrossPay_Click()

    Dim sngGrossPay As Single

    Dim sngHours As Single

    Dim sngRate As Single

    sngHours = InputBox("Please Enter Hours Worked(99.99)", _

        "Number of Hours")

    sngRate = InputBox("Please Enter Pay Rate(99.99)", _

        "Hourly Pay Rate")

    sngGrossPay = GrossPay(Val(sngHours), Val(sngRate))

    MsgBox "Gross Pay is $" & Str(sngGrossPay), vbOKOnly, "Gross Pay Amount"

End Sub

Public Function GrossPay(Hours As Single, Rate As Single)  As Single

    GrossPay = Hours * Rate

End Function