在vb里关于数值溢出的处理

具体是这样
Private Sub A(X As Integer) As Double
A = 计算公式
End Sub

Private Sub B() As Double
For I = 0 To 100
Print A(I)
Next I
End Sub

A可能是一个很大的数，超出Double的范围。我想要的结果是，假如A溢出了，就不执行Print A(I)，直接进入下一次循环，计算A(I + 1)，请问如何实现？

我在B程序里使用On Error都不行，还是会报实时错误，不知道什么原因。如果在A程序里用On Error的话，那么，如何让B程序知道，A溢出了？
上边的程序有点打错，A是个Private Function，B后边没有As Double，但我要表达的大体意思是没有打错的。

---

你怎么不把Print 写到 A 里？这样不就可以了吗？

或者在洞祥亮A中加on error，然后溢出后返回一个不可能出现的宴燃值，然后在B中做判纳宽断

---