Array - Split

[thiagocs 0]

tenho uma variável que vem assim: 26_20,15_10,1_9como faço para separar assim:cod(0) = 26hist(0) = 20

[Salgado 4]

Tente assim:

Arr_ini = Split("26_20,15_10,1_9",",")
For x = Lbound(Arr_ini) To Ubound(Arr_ini)
Arr_aux = Split(Arr_ini(x),"_")
cod = cod & Arr_aux(0)
hist = hist & Arr_aux(1)
If x < Ubound(Arr_ini) Then
 cod = cod &","
 hist = hist &","
End If
Next
cod = Split(cod,",")
hist = Split(hist,",")