Form e message box

[Toeke]

Cosi?

Private Sub Command1_Click()
  Dim i As Integer
  For i = 1 To CInt(Text1.Text)
    MsgBox i
  Next
End Sub

Toeke