Transacciones en Lisbox para previsualizar asiento

Recurro como siempre a su valiosa ayuda..

Tengo una userform con información que voy cargando en los textbox Listbox y demás controles

Lo que requería es que con la información que cargo me alimente un listbox que funcione
Para previsualizar

Ejemplo cuando cargo la factura

Tengo datos fecha, item, cantidad, costo y totales

En un listbox quiero que el formulario me haga el asiento contable de forma automática

Ejemplo Compra de Mercancía por 80000, este seria el asiento

Asiento 1
Cod       Descripcion                           Debe      Haber   Fecha
511102 Inventario de Mercancia     80000                   01/01/2016
211101 cuentas por pagar                              80000     01/01/2016

Mi listbox tiene 5 columnas

Con este código se carga el listbox la primera línea con el código la cta y el monto

With Me
Col = ListBox1.ListCount
ListBox1.AddItem Cbo_cta 'Codigo item

ListBox1.List(Col, 1) = "INVENTARIO DE MERCANCIA" 'Descripcion item"
ListBox1.List(Col, 2) = VBA.FORMAT(CDbl(Txt_SubTotal) + CDbl(Txt_IVA), "#,##0") monto items

End With

Estoy teniendo problemas para dejar en la línea 1 el listbox en la columna haber vacío y colocar en l columna fecha la fecha...

Pero la segunda línea no se como hacerla ver en el listbox, ya que debería generar una línea más
Y que el monto lo coloque en la columna 3 y no la 2 como esta en la línea 1...

Todo esto para que el listbox muestre como un especie de asiento contable en su estructura...