פרט בבקשה את השאלה,
או שנראה לי שאתה מתבלל בין msgbox ל input box
ואז פשוט תריץ פונקציה שנקראת isnumbric יכול להיות שאני טועה באיות- תסתכל בMSDN
dim num as integernum = inputbox("enter numbers","Enter Numbers")while not isnumeric(num) do num = inputbox("enter numbers","Enter Numbers")