Is there a way to wrap text in Excel VBA form listbox?

Question

Is there a way to wrap text in Excel VBA form listbox?

item = item & WorksheetFunction.Rept(" ",30 - Len(item))
    subtotal = WorksheetFunction.Rept(" ", 10 - subtotal_pad) & _
        "$ " & WorksheetFunction.Rept(" ", subtotal_pad - Len(Format(subtotal, "0.00"))) & Format(subtotal, "0.00")
    taxed = "  "
        If tax_rate <> 0 Then
            taxed = " T"
        End If
    description = ""
        If description <> "" Then
            description = vbNewLine & "  - " & description
        End If
    quantity = ""
        If unit <> "ea" Then
            quantity = vbNewLine & "  - " & quantity & " @ $" & Format(cost, "0.00#") & "/" & unit
        End If

    lbxCharges.AddItem (item & subtotal & taxed & description & quantity)

This is how it looks:

but this is how it should look: