Help- problem with debug.writline output

[BlueOysterCult]

Hello,
I have finally got to the point of not having any errors - at least the ones that I can see.

I cannot get the output I need though and I dont know why

here is the code

Module Inventory
    Sub Main()

        Dim warranty As String
        Dim CarPrice As Single
        Dim myNewCar As New Car(3456, "usedCar", "Chevy", "S-10", "1999", 98429652)
        CarPrice = myNewCar.price()
        Debug.WriteLine(CarPrice)
        warranty = myNewCar.carWarranty()
        Debug.WriteLine(warranty)
    End Sub 


 Public Sub New(ByVal originalCost As Single, ByVal category As String, ByVal make As String, ByVal model As String, _
    ByVal year As String, ByVal vin As Long)
        dealerPrice = originalCost
        Me.category = category
        Me.make = make
        Me.model = model
        Me.year = year
        Me.vin = vin

  Public Function price() As Single

        If category = ("usedCar") Then
            stickerPrice = dealerPrice * usedGouge
        ElseIf category = ("basicCar") Then
            stickerPrice = dealerPrice * basicGouge
        Else
            stickerPrice = dealerPrice * luxuryGouge
        End If
        Return stickerPrice

    End Function

I believe that is all the code necessary here to show yuo all if not let me know9 the warranty is fine for the output - I get the price in the output but not the rest like model-Honda

Thanks
Rob