Hola
En el cuadro de Lista (ListBox) tienes que poner la propiedad Tipo de origen de fila: Lista de valor. El código sería el siguiente:
Código:
Private Sub Comando6_Click()
Texto0.SetFocus
Lista7.AddItem Texto0.Text
Texto2.SetFocus
Lista7.AddItem Texto2.Text
Texto4.SetFocus
Lista7.AddItem Texto4.Text
End Sub
No se porque pero parece que hay que ir dando el foco a cada texto, no suelo programar casi nada en VBA, puede ser que exista una forma más rápida, pero para lo poco que programo en VBA yo lo hago de esa forma.
--Saludos--