Hello,

I am getting errors in the following lines...

OriginalPrice = InputBox("Please enter the original price.")
DeliveryFee = InputBox("Do you want us to deliver to your door for $20 more?")
TradeIn = InputBox("Do you have a trade-in mattress for a $5 credit?")

Code:
'Variables: Place your Dim statements here

        Dim FinalCost As Single
        Dim OriginalPrice As Integer
        Dim DeliveryFee As Integer
        Dim TradeIn As Integer
        Dim DiscountRate As Integer
    
Option Explicit '
Private Sub DriverModule_Click()
    On Error GoTo ErrHandler '
    
    'Driver Module Name:
    
    OriginalPrice = InputBox("Please enter the original price.")
    DeliveryFee = InputBox("Do you want us to deliver to your door for $20 more?")
    TradeIn = InputBox("Do you have a trade-in mattress for a $5 credit?")
    
    

    LabelOut.Caption = LabelOut.Caption & vbNewLine & "The cost to you for the bed is" & FinalCost & vbNewLine & "The original price was" & FinalCost

If OriginalPrice > 100 Then
    OriginalPrice = OriginalPrice + (0.15 * OriginalPrice)
End If

If OriginalPrice > 90 Then
    OriginalPrice = OriginalPrice + (0.14 * OriginalPrice)
End If
If OriginalPrice > 80 Then
    OriginalPrice = OriginalPrice + (0.13 * OriginalPrice)
End If
If OriginalPrice > 70 Then
    OriginalPrice = OriginalPrice + (0.12 * OriginalPrice)
End If
If OriginalPrice > 60 Then
    OriginalPrice = OriginalPrice + (0.11 * OriginalPrice)
End If
If OriginalPrice > 50 Then
    OriginalPrice = OriginalPrice + (0.1 * OriginalPrice)
End If
If OriginalPrice <= 50 Then
    OriginalPrice = OriginalPrice & vbNewLine & LabelOut.Caption = LabelOut.Caption & "No Discount applied." & vbNewLine
End If



If DeliveryFee = "Y" Or DeliveryFee = "y" Then
    FinalCost = OriginalPrice + 20
Else
    DeliveryFee = OriginalPrice
End If

If DeliveryFee = "N" Or DeliveryFee = "n" Then
    FinalCost = OriginalPrice
End If

If TradeIn = "Y" Or TradeIn = "y" Then
    FinalCost = OriginalPrice - 5
Else
    TradeIn = OriginalPrice
End If

If TradeIn = "N" Or TradeIn = "n" Then
    FinalCost = OriginalPrice
End If