option explicit
sub test()
   dim mojaVar as Single
    mjaVar=1
end sub