Hai provato con un vettore?

dim Par(n-1) as string