arr = Split(s," ")
s = "11 22 33 44 55 66 77 88 99" arr = Split(s) For i = 0 To UBound(arr) MsgBox arr(i) Next