Dim suuji as Long
Dim suuji2 as Long
suuji = 2
suuji2 = suuji << 3