面倒なことは考えずフラグ作ればいいじゃん

Dim existArr As Booelan
Dim arr() As Integer

If Not existArr Then Redim arr(100)