Dim geheelgetal
Do
	geheelgetal = inputbox("Geef een geheel getal")
Loop Until isgeheel(geheelgetal)

Msgbox "Het getal is " & geheelgetal

function isgeheel(p)
isgeheel=true
if not isnumeric(p) then
	isgeheel=false
	exit function
end if
if not p-int(p)=0 then isgeheel=false
end function