se fai una ricerca di ciò che ti può essere utile........
dim stringa as string
dim myarray$(3)
stringa=""nome1,nome2,nome3""
a=len(stringa)
n=0
bx$="":for i=1 to a
n=n+1
if mid(stringa,i,1)="," then
myarray$(n)=bx$
bx$=""
else
bx$=bx$+mid(stringa,i,1)
end if
next i

for i=1 to 3
if myarray$(i)=myarray$(i) then stop
'metti il puntatore del mouse su myarray$ e controllane il valore
next i