Dim i
For i = 1 To 100
Text1.SelStart = Len(Text1.Text)
Text1.SelText = i & vbCrLf
Next i