Redim Construction in Lotus script

Dim m As Integer
m=1
ReDim manager(1)
If (Aclentry.Level = ACLLEVEL_MANAGER) Then
    manager(m-1)=Aclentry.Name
    m=m+1
    ReDim Preserve manager(m)
    msgbox manager
    persondoc.txt_manager=manager
EndIf