Agregar datos a listbox de formulario

Quisiera hacerles la consulta para poder modificar esta acción.

Tengo esta macro que se ejecuta con un CommandButton.

ListBox1.ColumnCount = 5
ListBox1.AddItem ComboBox1

ListBox1.List(s, 1) = Label6

ListBox1.List(s, 2) = TextBox1
ListBox1.List(s, 3) = ComboBox4
ListBox1.List(s, 4) = TextBox6

ListBox1.TextColumn = 5

s = s + 1

El problema esta en que al agregar el dato este se sobrescribe y lo que quisiera es que cada vez que se agregue un dato este quede como un consecutivo.

Adjunto formulario https://drive.google.com/file/d/0B798EFGaiKE0ODBWRHVBTmlpam8/view?usp=sharing 

Adjunto Documento https://drive.google.com/file/d/0B798EFGaiKE0ZGFpTDd2WnNfYlE/view?usp=sharing