function ispriem (g)
dim testdeler
ispriem=true
for testdeler = 2 to sqr(cint(g))
	if g mod testdeler = 0 then 'deler gevonden
		ispriem=false
		exit for
	end if
next
end function
dim getal
do
getal=inputbox("Geef een getal")
loop until isnumeric(getal)
if ispriem(getal) then
	msgbox getal & " is priem"
	else
	msgbox getal & " is niet priem"
end if