Long Overflow ved lille værdi.

Kan nogen give mig forklaringen på nedenstående mystik?

Private Sub Form_Load()
  Dim Sum As Long
 
1  Sum = 2000000000
  MsgBox Sum        'MsgBox skriver:"2000000000". OK.
 
2  Sum = 2 * 16383   
  MsgBox Sum        'MsgBox Skriver:"32766". Ok

 
3  Sum = 2 * 16384  'VB Melder:"Error 6: Overflow".
  MsgBox Sum
End Sub

Ad. 1, Sum tildeles værdien 2 Mia. Virker fint.

Ad. 2, Sum tildeles 2 * 16383. Virker fint.

Ad. 3, Sum tildeles 2 * 16384. VB melder Overflow.
2 * 16384 er 32768, altså 1 mere end en integer kan rumme.
Hvorfor opfører en Long-Variabel sig som en Integer når den tildeles en beregning?