¿Cómo dividir varios caracteres en VB Split?

Descomponerlos por separado. Si es así:\x0d\DIM x() COMO CADENA, y() como cadena, s como cadena\x0d\DIM i como entero, j como entero\x0d\s="a1, a2, a3; b1, b2, b3 , b4"\x0d\x=split(s, ";") El resultado x tiene dos elementos: "a1, a2, a3" y "b1, b2, b3, b4" \x0d\for i=LBOUND(X) TO UBOUND(X)\x0d\ y=split(x(i)，",")\x0d\ for j=LBOUND(y) to UBOUND(y)\x0d\ print y(j)，\x0d\ next j \x0d\ imprimir\x0d\siguiente i