VB怎么批量生成数字？？

在窗体上有三个文本框，一个命令按钮
在text1中输入起始数字text2中输入结束数字，单击命令按钮在text3中生成所有数字
Private Sub Command1_Click()
Dim i As Integer
For i = Val(Text1.Text) To Val(Text2.Text)
Text3.Text = Text3.Text + Str(i)
Next i
End Sub

'将Text3的MultiLine设为True
Private Sub Command1_Click()
Dim i As Integer
Dim Num As Integer
Text3.Text = ""
Num = Val(Text1.Text)
For i = Num To Val(Text2.Text)
Text3.Text = Text3.Text & Num & vbCrLf
Num = Num + 1
Next
End Sub

Private Sub command1_click()
Dim a, b, c
a = Text1.Text
b = Text3.Text
text3.text=""
For c = a To b
Text3.Text = Text3.Text & c & vbCrLf
Next c
End Sub

vbCrLf为文本框控件内换行
你的意思是，设置起点和终点，
然后再在一个文本控件中以1递增的显示起点到终点的每一个整数。
手动将Text3的MultiLine属性设为True