dichiarala fuori della sub routine

dim var as type

sub

end sub