sub test()
  dim mojaVar as single
   mojaVar=1

  dim tvojaVar as single
   tvojaVar=2
end sub