Working with array

[Ankur]

Your two arrays would be arr1 and arr2 below -

Code:

Dim svar, out, arr, arr1, arr2
svar = "1,a;2,b;3,c;4,d;5,e"
out = split(svar,";")

ReDim arr1(UBound(out))
ReDim arr2(UBound(out))

For i = 0 To UBound(out)

arr = split(out(i),",")

    arr1(i) = arr(0)
    arr2(i) = arr(1)
    
Next

@all : I'm sure there must be some better solution to this, please try and put it here.