Ceros en un listbox vba EXCEL

Muestra una imagen del formulario y el código del listbox saludos!

Private Sub CommandButton1_Click() ' REGISTRAR
Application.ScreenUpdating = False
Dim T As Double
Dim DEBE As Double
Dim HABER As Double
Dim TOTALDEBE As Double
Dim TOTALHABER As Double

'TOTALDEBE = Val(LHABER)
'TOTALHABER = Val(LDEBE)
TOTALHABER = Val(TextBoxH)
TOTALDEBE = Val(TextBoxD)
HABER = Val(THABER)
DEBE = Val(TDEBE)
T = Val(TextBox1)
Sheets("ASIENTOS").Activate

'
'Usamos BUSCARV para encontrar el detalle del producto
'
' DESCRIPCION = .VLookup((TextBox1.Value), CATALOGO.Range("A:B"), 2, 0) ' DESDE FECHA HASTA CÓDIGO

'Llenamos el ListBox
'...CÓDIGO
ListBox1.AddItem Me.TextBox1.Value ' TEXTBOX CODIGO

ListBox1.List(ListBox1.ListCount - 1, 1) = TDESCRIPCIÓN 
ListBox1.List(ListBox1.ListCount - 1, 2) = Format(DEBE)
ListBox1.List(ListBox1.ListCount - 1, 3) = Format(HABER)

With ListBox1

sumarHABER_Click
sumarDEBE_Click
Sheets("ASIENTOS").Range("a1").Select

Range("a65536").End(xlUp).Offset(1, 0).Activate

TextBox1.Value = ""

TDESCRIPCIÓN.Value = ""
TDEBE.Value = ""
THABER.Value = ""
TextBox1.SetFocus

Application.ScreenUpdating = True
End Sub

Pon este código después de esta parte del código

ListBox1.AddItem Me.TextBox1.Value ' TEXTBOX CODIGO
ListBox1.List(ListBox1.ListCount - 1, 1) = TDESCRIPCIÓN 
ListBox1.List(ListBox1.ListCount - 1, 2) = Format(DEBE)
ListBox1.List(ListBox1.ListCount - 1, 3) = Format(HABER)
'/*/*/*/*/*
If ListBox1.List(ListBox1.ListCount - 1, 3) = 0 Then
ListBox1.List(ListBox1.ListCount - 1, 1) = ""
End If

Corregido

If ListBox1.List(ListBox1.ListCount - 1, 3) = 0 Then
ListBox1.List(ListBox1.ListCount - 1, 3) = ""
End If

Me comentas valoras para finalizar!

¡Gracias! EXCELENTE, y curiosamente en esta página alguien dijo que no se podía hacer. 

¿Pudieras cambiar la valoración?

¿Hay alguna duda?

Ya el problema de los ceros lo arreglé, gracias, pero el problema es con las columnas quiero alinear DESCRIPCIÓN a la izquierda y los debitos y crerditos a la derecha, pero estos datos son cargados no recogen información de las celdas. Todos los ejemplos que he visto es con referencia as celdas en esta caso no aplica. Te agradecería si me ayudas