dim inttextlen, i, k as integer dim textbefore, textafter(100) as string inttextlen = len(textbox1.text) k = 1 textbefore = textbox1.text for i = 1 to inttextlen if mid(textbefore, i, 1) = "," then k += 1 else textafter(k) = textafter(k) & mid(textbefore, i, 1) end if next
