[VB6] Assegnazione stringa ad array

[kalosjo]

dim arr() as string  'crea un array dinamico
dim stringa as string

stringa="gigguogougoug"

redim arr(0)    'ridimensiona l'array con un solo elemento
arr(0 )=stringa