Sumar columna en listbox en textbox

Necesito sumar columna de listbox en un textbox en excel, he tratado de hacerlo pero no me lo hace

ListBox1.List(ListBox1.ListCount - 1, 2) = Format(TDEBE, "currency")
ListBox1.List(ListBox1.ListCount - 1, 3) = Format(THABER, "currency")
'...ETIQUETAS
LDEBE = Format((LDEBE) + (DEBE), "currency") ' DEBE ES LA COLUMNA A SUMAR
LHABER = Format((LHABER) + (HABER), "currency")