数组下标越界问题

我看别人的程序定义了数组
private acond
ReDim aCond( -1)
下面使用就没有提示数组下标越界问题
  Public Sub AddCondition(s)
  If IsBlank(s) Then Exit Sub
  ReDim Preserve aCondition(UBound(aCondition) + 1)
  aCondition(UBound(aCondition)) = s
  End Sub
他这里就不提示下标越界,为什么我复制他的就提示下标越界呢???
UBound(aCondition)返回的是最大下标,但是是-1啊,怎么解决这个问题啊?
百思不得其解啊, 求高手指点

有可能是你的开发软件的问题，你仔细看一下

ReDim aCond(-1) aCond 还是 aCondition？