VBA Code:

Option Explicit
Sub GetBatches_Click()
Dim obArchives As Archives
Dim obArchive As Archive
Dim iArchives As Integer
Dim strArray
Dim iArray As Integer
Dim strArrayBatch
Dim iArrayBatch As Integer
Set obArchives = thisProject.Archives

If obArchives.count = 0 Then
MsgBox "No archives configured!"
Exit Sub
End If

Debug.Print ("Count Archives: " & obArchives.count)

For iArchives = 0 To obArchives.count - 1

'get the single archive
Set obArchive = obArchives.Item(iArchives)
If obArchive Is Nothing Then
MsgBox "Error getting archive " & obArchives.Item(iArchives)
Exit Sub
End If

Debug.Print ("Archive: " & obArchive.Name)

'get the complete batchindex
strArray = obArchive.BatchIndex
Debug.Print ("Count Batches: " & UBound(strArray))

'split up the string array (list of batches)
For iArray = 0 To UBound(strArray)
'get the single batches and split it up
strArrayBatch = Split(strArray(iArray), ";")
'write the each single batch string to the listbox (in seperate columns)
For iArrayBatch = 0 To UBound(strArrayBatch)
'structure of array:
'0=ARX-FileName; 1=Batchname; 2=Starttime in seconds; 3=Endtime in seconds
Debug.Print "-> " & strArrayBatch(iArrayBatch)
Next iArrayBatch
Next iArray
Debug.Print ""
Next iArchives
End Sub