请教一下我的代码执行起来为什么会溢出！！急！！谢谢！
Select Case intBuyCata
Case 1
a = Me.Label9.Text
b = Me.Label7.Text
sinBuyTime = avgrandom(a, b)
Case 2
f = Me.Label9.Text
sinBuyTime = indexrandom(f)
Case 3
c = Me.Label9.Text
d = Me.Label7.Text
sinBuyTime = ztRandom(c, d)
End Select
sinCustomBuyTime(intCustomNum) = sinBuyTime '顾客购货时间赋值
sinCustomCome(intCustomNum) = sinComeTime + sinCustomCome(intCustomNum - 1) '生成下位顾客到达时间
sinCustomBuy(intCustomNum) = sinBuyTime + sinCustomCome(intCustomNum - 1) '顾客购物完毕时间
sinStartPay(intCustomNum) = MAX
sinLeaveTime(intCustomNum) = MAX
sinLeaveTimeTemp(intCustomNum) = MAX


执行到
sinCustomCome(intCustomNum) = sinComeTime + sinCustomCome(intCustomNum - 1) '生成下位顾客到达时间
就显示溢出。。。

开始定义时 private intcutomnum as integer 表示到达人数
Private sinCustomCome() As Long '顾客到达时间

应该怎么改动呢？着急！
非常感谢。。。

新来的分数不多。。。

[解决办法]
有2个地方可能发生错误:

(1)sinCustomCome定义时候的长度
(2)intCustomNum 当前值是多少. 没看到给intCustomNum 赋值
[解决办法]

intCustomNum 是 null 或 0 ？