,VB如果生成两个TEXT内数字范围内的所有正整数,并导入到LISTBOX中

求助,VB如果生成两个TEXT内数字范围内的所有正整数,并导入到LISTBOX中
求助各位高手，VB中添加控件分别为Text1和Text2，Listbox1,和一个Command1，现想在两个文本框中输入数字，如Text1中输入1,Text2中输入400，点击Command1后Listbox1菜单中按从小到大的顺序显示1到400的所有正整数，求助代码的编写，实在是不知道怎么写了，先谢过各位高手了！
[解决办法]

Private Sub Command1_Click()
Dim i As Long 
Listbox1.Clear
    
for i=CLng(Text1) to CLng(Text2)
 Listbox1.AddItem CStr(i)
next
End Sub