La cosa dovrebbe funzionare.
prima di usare redim devi dichiarare l'array nel seguente modo:
Dim Ba() as string
e successivamente usi:
ReDim Ba(a, b)
in modo da poterlo ridimensionare dinamicamente. Ovviamente dopo che hai ridimensionato l'array puoi accedere ai suoi elementi anche attraverso variabili-contatore di cicli, come vuoi fare tu, no?
__________________
AMD K6 450 MHz, Epox MVP3G2 FSB 100 MHz, 320 MB RAM, HDD IBM 7200 60 GB, VooDoo III (č vecchia ma per diablo II va ancora bene

)