Caluclate
age = InputBox("Please type your age.") newage = age + 25 Msgbox "In 25 years, you will be " & newage & ". Suprise?", vbQuestion