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