Dim PlusInfinity as Double
Dim MinusInfinity as Double
Dim IndefiniteNumber as Double
On Error Resume Next
PlusInfinity = 1 / 0
MinusInfinity = -1 / 0
IndefiniteNumber = 0 / 0