请高手详细帮忙注释讲解一下这个一维数组的程序，看不明白

这是网友写给的聊天窗口处理程序，目的是防止数组个数多，而用到数组重组。
但是我看不明白，请注释一下其中的关系，以及具体走向。谢谢。

Private peer() As Long



Private Sub Command1_Click()

result = idget(34)

If result = -1 Then '新会话

n = UBound(peer) + 1

ReDim Preserve peer(1, n)

peer(0, n) = id

peer(1, n) = 0 '或者1，如果立即开启聊天窗口显示消息

result = n

End If

Call msg(result)

End Sub



Private Function idget(id) As Long

For n = 0 To UBound(peer)

If peer(n) = id Then idget = n: Exit Function '遍历是否已有此ID会话

Next

idget = -1

End Function



Private Function msg(id) As Long

'action

MsgBox (id)

End Function

出错：For n = 0 To UBound(peer下标越界。 UBound(peer)=-1也就是说你的peer未初始化。你可以单独建立一个函数察看peer
result = idget(34)在使用idget前要先对peer初始化。

侬啥意思
看代码，idget(34)定义泥 peer数组未初始化。还有peer(1,n)是什么意思，二维数组吗？ peer(0, n) = id
peer(1, n) = 0 
…………
If peer(n) = id Then 

俩五一十的关系。 还是不明白。请高手帮忙写一个初始化了可以测试的程序吧，谢谢！ 怎么不问你的朋友

补充：VB ,  API