Listbox

ich habe listboxenstress,
ich möchte nur einer listbox mit 4 spalten aus 4 textboxen, immer wenn ich einen button klicke eine zeile nach der anderen anhängen, leider werden die einträge immer wieder leer angezeigt.

kann mir einer helfen ?

mein bisheriges makro:

Private Sub CommandButton5_Click()
Dim z
With ListBox2_AW
z = z + 1
ReDim MyArray(z, 4)

MyArray(z, 0) = Techniker
MyArray(z, 1) = AW_Anzahl
MyArray(z, 2) = TextBox33_AW.Value
MyArray(z, 3) = TextBox34_Summe_AW.Value

.ColumnCount = 4
.ColumnWidths = "5,1cm;1,4cm;1,3cm;1,5cm"
.List() = MyArray
End With
End Sub

gruß peter