... integers from 0 to 25 5.Integer Integers from – 32, 768 to + 32, 767.Long Integers from 2, 147,483,648 to +2, 147,483,647.Currency Values from – 922 ,337 ,20 3,685,477.5808 to + 922 ,337 ,20 3,685,477.5807. ... Sub Test2007()MsgBox “Days until year 20 07: “ & DaysTil2007()End SubYou can then run the Test2007 sub to open a message box that tells you how many days areleft until the year 20 07. Debugging ... As Date ‘holds Jan 1, 20 07 dtToday = Now() ‘assign today’s datedt2007 = CDate(“1/1 /20 07 ) ‘assign Jan 1, 20 07 DaysTil2007 = dt2007 - dtToday ‘calculate difference,‘return value assigned ‘to...