Dim v
Dim k As Long


v = ListBox1.List
For k = LBound(v) To UBound(v)
    v(k, 3) = "$0.00's"
Next
ListBox1.List = v