逆から総和を求めるプログラムが上手くいきません。
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は、使えません。大きい数から小さい数を求める際に反応しません。どうしたらいいですか?お願いします。