Discount Price Problem Code

Dim sngDiscountPrice As Single

Private Sub cmdDiscountPrice_Click()

    Dim sngOriginalPrice As Single

    Dim sngDiscountRate As Single

    sngOriginalPrice = Val(InputBox("Enter Original Price(999.99)", _

       "Original Price", "100.00"))

    sngDiscountRate = Val(InputBox("Enter Discount Rate(0.99)", _

       "Discount Rate", "0.15"))

    Call DiscountPrice(sngOriginalPrice, sngDiscountRate)

    MsgBox "Discount Price $" & Str(sngDiscountPrice), vbOKOnly, _

       "Discounted Price"

End Sub

Public Sub DiscountPrice(OriginalPrice As Single, DiscountRate As Single)

    Dim sngDiscountAmout As Single

    sngDiscountAmout = OriginalPrice * DiscountRate

    sngDiscountPrice = OriginalPrice - sngDiscountAmout

End Sub