VB Code:
Private Type Person
Name As String
Age As Integer
End Type
Option Explicit
Private Sub Form_Load()
Dim Persons() As Person
Dim Temp() As String
Dim Temp2() As String
Dim i As Long
Temp = Split("George,20; Frank,99;Egads,9999898", ";")
For i = LBound(Temp) To UBound(Temp)
Temp2 = Split(Temp(i), ",")
On Error Resume Next
ReDim Preserve Persons(UBound(Persons) + 1)
If Err Then ReDim Preserve Persons(0)
Persons(UBound(Persons)).Name = Temp2(0)
Persons(UBound(Persons)).Age = Temp2(1)
Next i
MsgBox Persons(1).Name
End Sub