Or assuming that the numbers are consecutive and integers
Dim intStartNumber, intEndNumber, intLastNumber, intResult as integer
intStartNumber = some input say 1
intEndNumber = some input say 1999
intLastNumber = Right("intEndNumber",1)
if intLastNumber Mod 2 = 1 then ' checks last...