here is an example where I reprogram the entries in a listbox.
see if this helps you ID how to attempt it.
Private Sub SetSummaryInfo()'write summary list entries
Dim myListBox As Object
Dim myForm As UserForm
Dim myRow As Long, lampCount As Long, sumWatts As Long, lastRow As Long
Dim myArray() As String
Dim myString As String
Dim mySheet As Worksheet
Dim myRange1 As Range, myRange2 As Range, myRange3 As Range
Set mySheet = ThisWorkbook.Worksheets("AssessmentDbase")
lastRow = mySheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set myForm = frmAssessment
Set myListBox = myForm.lbxSummaryInfo
myArray = GetFittingsList()
' set dashboard summary
Call ClearFixtureList
Call ListFixtures(myArray)
' set form fixtures summary
myListBox.Clear
For myRow = 1 To UBound(myArray, 2) 'add entries to listbox
myString = Trim(myArray(2, myRow) & " of " & myArray(1, myRow))
If myString <> "0 of W" Then myListBox.AddItem myString
Next myRow
'total count of fittings
lampCount = Application.WorksheetFunction.Sum(mySheet.Range("N2:N" & lastRow))
myForm.tbxSummaryCount = lampCount & " lamps"
'sum total of installed watts
Set myRange1 = mySheet.Range("I2:I" & lastRow) 'lamp count
Set myRange2 = mySheet.Range("J2:J" & lastRow) 'lamp watts
Set myRange3 = mySheet.Range("N2:N" & lastRow) 'fitting count
For myRow = 1 To lastRow - 1
sumWatts = sumWatts + myRange1.Cells(myRow).Value * myRange2.Cells(myRow).Value * myRange3.Cells(myRow).Value
Next myRow
sumWatts = sumWatts / 1000
myForm.tbxSummaryWatts = sumWatts & " kW Installed Load"
End Sub
and
Public Sub FormatAsDollars(ByRef myTextbox As MSForms.TextBox)Dim myVal As Double
myVal = ParseNumbers(myTextbox.Value)
myTextbox.Value = Format(myVal, "$#,##0.00")
End Sub