次のいずれかまたは両方を実行してください。

• 演算、変換、代入で使われている 1 つ以上の数値のデータ型を変更してください。
• 目的のデータ型を結果を収容できるように変更してください。次に例を示します。

Dim N As Long

I% = 30000 ' Declare I implicitly as an Integer.
J% = 10000 ' J is also an Integer.
Print (I% + J%) ' Overflow from numeric operation.The number
' 40000 cannot be represented as an Integer.
Print CInt(40000&) ' Overflow from attempted conversion of
' a Long value to an Integer value.
Invar% = 40000 ' Overflow from attempted assignment of
' a large value to an Integer variable.
N = 40000 ' No error.N was declared a Long.
MN = 40000 ' No error.MN is implicitly declared a Long
' by the assignment of a large value to it.

関連項目

ランタイムエラーメッセージ