Ничего лучше пока не придумал:

Public Sub sp_ChnShf(pShf%) ' shift channel by Idx Incrent-Decrement
Dim iIdx%
    'If Abs(pShf) <> 1 Then Stop ' Check; 2Off
    iIdx = l_UrlArrIdx + Sgn(pShf)
    Select Case True
        Case (iIdx > 9): iIdx = 0
        Case (iIdx < 0): iIdx = 9
    End Select
    Debug.Print l_UrlArrIdx; iIdx
    Call sb_ChnTry(iIdx)
End Sub

Есть ведь, наверное, более изящные способы (IIf не предлагать) - математикой, битами или еще как...
.

http://www.sql.ru/forum/1162807/kak-zastavit-hodit-po-krugu-v-konechnom-ryadu