关于VB换行的问题，各位大虾帮帮忙~~

Private Sub Form_Click()
Dim n As String, i As Long
n = InputBox("n")
For i = 1 To n
Print
Next i
End Sub

怎么输入的a就不说了，只说输入a之后，空a行的问题：
for i=1 to a
print
next
这就已经空出a行来了。

a = Val(InputBox("输入行数","Input Line Const"))
For 1 To a
Text1.Text = Text1.Text & vbCrLf
Next
'QQ594363468

for i=1 to a
print
next