Originariamente inviato da xegallo
codice:
dim s as string
dim arrs() as string
s= text1.text
do until instr(s,"  ") = 0
   s = replace (s, "  ", " ")
loop
arrs() = split(s, " ")
magari se gliela spiegassi pure..
cmq funziona solo se sà che il carattere di splitting è sicuramente uno spazio o + spazi... come dicevo prima..