Hi mubi_masti,
Try this:
Function IncrementValues(intSR As Integer, intBase As Integer) As Integer
IncrementValues = ((intSR + intSR Mod 2) / 2) - 1 + intBase
End Function
intSR is your SR value, starting from 1.
intBase is the base value that you wish to set (from what I saw, it is 10)...