Рассчитать количество чисел в промежутке от А до В кратных 5 - VB

Private Sub Command1_Click()
Dim a As Integer, b As Integer, sum As Integer, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a < b Then
For i = a + 1 To b - 1
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Else
For i = b + 1 To a - 1
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
End If
Text3.Text = sum
End Sub