Dim A
A = 150

ReDim B(A)
ReDim C(A)
ReDim D(A)