Записать числа от а до b в порядке возрастания. В чем ошибка? - VB

Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i() As Integer
a = InputBox("Введите число")
b = InputBox("Введите число")
If a > b Then
For i = a To b
Debug.Print i
Else
For i = b To a
Debug.Print i
Next i
Next i
End If
End If
End Sub