Dim atai As Varian
atai = Split("18,15,14,22,31,14,62,82,91,10", ",")

ほかにもやり方があった気がするけど、わすれた