what am i doing wrong

[seth050190]

Option Explicit
Private Sub cmdForLoop_Click()
Dim number As Integer
Dim finalLoopNumber As Integer
Dim firstLoopNumber As Integer
 
Form1.Cls
 
firstLoopNumber = Val(txtFirstNumber)
finalLoopNumber = Val(txtSecondNumber)
 
If txtFirstNumber < txtSecondNumber Then
    For number = firstLoopNumber To finalLoopNumber
Else
    For number = finalLoopNumber To firstLoopNumber
End If
 
Print number;
Next number
End Sub