option explicit
sub test()
   dim mojaVar as single
    dim tvojaVar as single
   
   mojaVar=1
end sub