I tried that but it didn't seem to work. I also tried to .tostring("C)" but that didn't seem to work either. Here is the latest code.

Code:
 Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

        With lstRates.Items
            .Add("Price of Equipment    " & "Half-day    " & "Full-Day")
            .Add("1. " & "Rug cleaner        " & "$16.00      " & "$24.00")
            .Add("2. " & "Lawn mower         " & "$12.00      " & "$18.00")
            .Add("3. " & "Paint sprayer      " & "$20.00      " & "$30.00")

        End With
    End Sub
    Function getInfo() As String

        Dim equip As String = txtEquip.Text

        Select Case equip
            Case "1"
                Return "Rug cleaner"

            Case "2"
                Return "Lawn mower"

            Case "3"
                Return "Paint Sprayer"
              
        End Select


    End Function
    Function getDuration() As String
        Dim equip As String = txtEquip.Text
        Dim duration As String = txtDuration.Text

        Select Case duration.ToUpper

            Case "F"
                If equip = "1" Then Return "24"
                If equip = "2" Then Return "18"
                If equip = "3" Then Return "30"

            Case "H"
                If equip = "1" Then Return "16"
                If equip = "2" Then Return "12"
                If equip = "3" Then Return "20"
        End Select
        FormatCurrency(getDuration, 2)
    End Function



    Private Sub btnBill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBill.Click
        With lstBill.Items
            .Add("Receipt from Eddie's Equipment Rental")
            .Add("")
            .Add(getInfo() & "     " & getDuration()).ToString("C")
            .Add("Deposit" & "        $30.00")
            .Add("Total          " & getDuration() + 30).ToString("C")

        End With
    End Sub