Simple example:
Code:
Sub ParseData(s As String)
Dim aryS1 As Variant, aryS2 As Variant, x As Integer, y As Integer
aryS1 = Split(s, "*")
For x = 0 To UBound(aryS1)
aryS2 = Split(aryS1(x), ";")
For y = 0 To UBound(aryS2)
Debug.Print aryS2(y)
Next
Next
End Sub
Instead of Debug.Print, code to save array elements to table. Another simple example.
Code:
Sub ParseData(s As String)
Dim aryS1 As Variant, aryS2 As Variant, x As Integer, y As Integer
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset ("SELECT * FROM tablename WHERE 1=0")
aryS1 = Split(s, "*")
For x = 0 To UBound(aryS1)
aryS2 = Split(aryS1(x), ";")
rs.Addnew
For y = 0 To UBound(aryS2)
rs(y) = aryS2(y)
Next
rs.Update
Next
End Sub