vb6 - Visual Basic 6 コードのランタイム オーバーフロー エラー

Question

Visual Basic 6.0 - SP2 の次のコードで、オーバーフロー エラーが発生します。誰かが理由を説明できますか？

Private Sub Form_Click()

  Dim Qty as Long

  Qty= 290 * 113       '' 112 is working fine

  MsgBox Qty

End Sub