pegasus, dire soltanto "non mi funziona" non aiuta, dovresti indicare l'eventuale errore che ricevi, segna per la prossima volta.

comunque, usa ReDim invece di Dim