Ayuda con ListBox

[Sirius381]

Hola amigos! abro este hilo para solicitar su ayuda en un "problema" que me ha surgido, he hecho parte de un codigo declarando una matriz como cadena de caracteres (String) pero no logro que se presente en la list box, y desgraciadamente es un proyecto para la escuela que tal vez no pueda presentar, bueno espero que alguien pueda ayudarme ;) dejo el codigo comentado para ver si alguien se anima :)

Private Sub Command1_Click()
'Este modulo pide los datos para empezar la ordenacion.
Dim datos (1 To 3, 1 To 4) As String 'aqui declaro la matriz
For a = 1 To 3 'abro el ciclo para que solicite los datos
datos(a, 1) = InputBox("Introduce Matricula" & i)
datos(a, 2) = InputBox("Introduce Nombre" & i)
datos(a, 3) = InputBox("Introduce Apellido Paterno" & i)
datos(a, 4) = InputBox("Introduce Apellido Materno" & i)
Next a
'aqui deberia de ordenar para despues presentar los datos en la lista ya ordenados
Dim datos(a, 3) As String
For datos = 1 To 3

NO SE COMO PRESENTARLOS EN LA LIST BOX! AYUDA POR FAVOOR!
creo que la ordenacion tampoco esta bien, pero no se declararle que ordene por apellido, lo que en la matriz vendria siendo la tercer columna

For j = datos + 1 To 10
If (a(datos) > a(j)) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
Rem visualiza la lista
For i = 1 To 10
Lsta.AddItem Str(a(i))
Next i
End Sub

De antemano muchas gracias.

Saludos!!!