Sub testest()
Dim z0 As LongLong
z0 = 356 * 100
End Sub

「オーバーフローしました」になるんだが