Dim geheelgetal
Do
Do
	geheelgetal = inputbox("Geef een geheel getal")
Loop Until Isnumeric(geheelgetal)
Loop Until geheelgetal-int(geheelgetal) = 0
Msgbox "Het getal is " & geheelgetal