If n = 0 Then
ReDim mp(1 To 1)
Else
ReDim Preserve mp(1 To n + 1)
End If
n = n + 1
mp(n).num = txtAnum.Text
mp(n).nombre = txtAnombre.Text
For i = 1 To lstAgrupos.ListCount
mp(n).lista = lstAgrupos.List(i)
Next
txtAnum = ""
txtAnombre = ""
lstAgrupos.Clear
Unload Me
Exit Sub
y en el modulo:
Type emepetreses
num As Integer
nombre As String
lista As ListBox
End Type
Public mp() As emepetreses
Public n As Integer
es lo que tengo ahora mismo, i me gustaría meter el lstAgrupos en la matriz mp().lista