crei un array di stringhe

dim arrStr(9)as string
'qui riempi l'array
randomize
msgbox = arrstr((ubound(arrstr)*rdn)+1))