Dim cars() Redim cars(0) 'Give it 1 entry Dim tmp tmp = "Ford" 'ubound(arrayvariable) is the count of array size. 'in this case, it would be 1, since there is 1 entry. cars(ubound(cars)) = tmp 'cars(0) Redim preserve cars(ubound(cars)+1)