There may be a function already available to do the job, but here's a user-defined function I quickly threw together, which seems to work...
[CODE=vb]Public Function RoundedTo(ByVal Interval As Long, ByVal Value As Long) As Long
' Round Value to the nearest Interval.
Dim Temp As Long
Temp = Value / Interval
RoundedTo = Temp * Interval
End Function[/CODE]
Comment