I am writing a program which asks the user to input a no and based on the number displays a msg those many no of times.

The code is
Private Sub txtNumber_Change()
intNumber = CInt(txtNumber.Text)
For i = 1 To intNumber Step 1
lblMessage.Caption = "VB is Fun!!!"
Next
End Sub

Pl.help