賦值、計算或數據類型的結果的轉換太大，以致於不能在變量類型所允許的範圍內表示出來。
賦值給足夠表示值的範圍的類型的變量上。
給屬性的賦值超過屬性能接受的最大值。
確保賦值適合屬性的範圍。
試圖在計算中使用壹個數字，並且該數字被強制為壹個整數，但是結果超過了整數的範圍，例如:
Dim
x
As
Long
x
=
2000
*
365
'
錯誤:
溢出要解決這個問題，請按如下方式鍵入該數字:
Dim
x
As
Long
x
=
CLng(2000)
*
365
妳的這個問題解決方法
Dim
a
As
Double
a
=
Sqr(CLng(500)
*
500)