Scomporre una stringa

[Federix]

Ho una stringa del tipo:

str1 = "a1, a2, a3, a4, an"

e devo scomporla in modo da sapere quanti sono gli an presenti nella stringa e valorizzare una variabile per ogni an:

var1 = "a1"
var2 = "a2"
.
.
.
varn = "an"

e devo anche sapere quanti an sono:

totale = n_an

Il problema è che ogni volta questa stringa cambia la sua lunghezza, a volte può essere lunga 2 an, a volte 10an a volte 1000 an.
Avete idea di come poterla scomporre????

[weppos]

Split alla virgola

[gensole]

dim stringa_scomposta()
stringa_scomposta=split("stringa scomporre",",")

totale=Ubound(stringa_scomposta)