La tarea es engorrosa pero aquí va:
El listbox tiene diferentes columnas de diferentes anchos. Entonces debes crear una cadena que cubra la col de mayor ancho (manualmente irás probando), y esa cadena la cargarás en cada col como si fuese un dato más (el contenido se corta al llegar al ancho máximo de la col)
Private Sub CommandButton1_Click()
'x Elsamatilde
'instrucciones para agregar una línea a continuación de cada dato
'se llena una fila de datos (3 columnas)
ListBox1.AddItem TextBox1
ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox2
ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox3
'se coloca en una variable el largo mayor aprox
cadena = String(20, "-") 'aprox col de ancho = 60pt
'se agrega una fila volcando en cada col la cadena
ListBox1.AddItem cadena
ListBox1.List(ListBox1.ListCount - 1, 1) = cadena
ListBox1.List(ListBox1.ListCount - 1, 2) = cadena
End Sub
Sdos y te recuerdo que también tenés otra consulta aún abierta sin valorar.