dim intTest as integer
 
intTest=inputbox(intTest)
 
if intTest <0 then
msgbox("Du har indtastet et negativt tal")
end if