Dim LastNum As Integer
 
Private Sub Command1_Click()
Dim NewNum As Integer
Dim I As Integer
 
If Text1.Text = vbNullString Then
    MsgBox "Enter A Value"
    Exit Sub
End If
 
NewNum = LastNum + Val((Text1.Text) - 1)
 
Text2.Text = vbNullString
For I = LastNum To NewNum
    Text2.Text = Text2.Text & I & " "
Next I
 
LastNum = I
 
End Sub
 
Private Sub Form_Load()
LastNum = 1
End Sub