Función de división de VB, ¿cómo dividir en función de varias cadenas?

DIM x() COMO CADENA, y() como cadena, s como cadena

DIM i como número entero, j como número entero

s = "a1, a2, a3; b1, b2, b3, b4"

x=split(s, ";") ' El resultado x tiene dos elementos: "a1, a2, a3" y " b1, b2, b3, b4"

para i=LBOUND(X) TO UBOUND(X)

y=split(x(i), ","")

para j=LBOUND(y) a UBOUND(y)

imprime y(j),

siguiente j

imprime

siguiente yo