> Type aaa> E As Long> F(0 To 2 - 1) As Long> End Type> (0 To 2 - 1)を(0 To BB - 1)と変数をType aaa E As Long F() As LongEnd TypeDim a As aaaRedim a.F(0 To BB - 1)