Access VBA

Private Sub btnWa_Click()


Dim lX As Long
Dim lY As Long
Dim lS As Long
Dim i As Long
Dim lSouwa As Long

lX = txtX.Value
lY = txtY.Value

If lX > lY Then
     lS = -1
Else: lS = 1

lSouwa = 0

For i = lX To lY Step lS
     lSouwa = lSouwa + i
Next i

txtSouwa.Value = lSouwa

End If
End Sub

X~Yまでの総和を求めるプログラムを作りたいです。逆から求めるプログラムも作らなければいけません。Exit Subは、使えません。大きい数から小さい数を求める際に反応しません。どうしたらいいですか?お願いします。