求助。关于vb换行。

用inputbox输入一个二维数组，代码如下。为什么不能换行呢
Private Sub Command1_Click()
For i = 1 To 10
For j = 1 To 5
a(i, j) = InputBox("请输入第" & j & "门成绩")
Text1.Text = Text1.Text & " " & Str(a(i, j))
Next j
Text1.Text = Text1.Text & vbCrLf
Next i
End Sub