【编译异常 无效的redim】

紧急求助 【编译错误 无效的redim】
a = Split(Text1.Text, vbCrLf)
i = UBound(a)
ReDim Preserve a(i + 2)

[解决办法]

VB code

Dim aDim i As Integera = Split(Text1.Text, vbCrLf)i = UBound(a)ReDim Preserve a(i + 2)