Option Explicit
sub test()

 i=i+10
 msgbox i

end sub