Função em Visual Basic para verificar se um número é primo

Número inteiro (1-1000000) :

function primo(n as long) as boolean
 Dim aux as long,raiz as long
 if n<=3 then
  primo = n<>1
 else
  if n MOD 2 = 0 then
   primo = FALSE
  else
   aux = 3
   raiz = int(sqr(n))
   do while (n MOD aux <>0) AND (aux < raiz)
    aux =aux +2
   loop
   primo = n MOD aux <> 0
  end if
 end if
end function