vb6 contare parole textbox

[xegallo]

dim s as string
dim arrs() as string
s= text1.text
do until instr(s,"  ") = 0
   s = replace (s, "  ", " ")
loop
arrs() = split(s, " ")