sub test()
 dim mojaVar as single
 dim tvojaVar as single

 mojaVar=1
  tvojaVar=2
end sub