Циклическая смена чисел на Caption

Private Sub cmdEvenlyCountV_MouseWheel(dir As Long, button As Integer, shift As Integer, x As Single, y As Single)
    intTMP = Val(cmdEvenlyCountV.Caption)
    intTMP = intTMP + (dir / Abs(dir)) прибавляем или отнимаем 1 в зависимости от направления вращения ролика
    If intTMP > 100 Then intTMP = 0 ’ зацикливаем
    If intTMP < 0 Then intTMP = 100 ’ зацикливаем
    cmdEvenlyCountV.Caption = intTMP
End Sub

Private Sub cmdEvenlyCountV_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
    '
    intTMP = Val(cmdEvenlyCountV.Caption)
    '
    Select Case button
        Case 1
            intTMP = intTMP + 20
 
        Case 2
            intTMP = intTMP - 20
 
    End Select
    '
    If intTMP > 100 Then intTMP = 0 ' зацикливаем
    If intTMP < 0 Then intTMP = 100 ' зацикливаем
 
    cmdEvenlyCountV.Caption = intTMP
    '
End Sub

Function FixToGrid(ByVal V As Long, ByVal Min As Long, ByVal Max As Long, ByVal Stp As Long, ByVal Up As Boolean) As Long
  If V < Min + 1 + (Up) Or V > Max + Up Then
    If Up Then FixToGrid = Min Else FixToGrid = Max
  Else
    V = ((V - 1) \ Stp) * Stp * -(Not Up) + ((V + Stp) \ Stp) * Stp * -Up
    If V < Min Then
      V = Min
    ElseIf V > Max Then
      V = Max
    End If
    FixToGrid = V
  End If
End Function