text显示多行文字的有关问题

text显示多行文字的问题
建了一个text,原本打算显示 1这样
                       2 
                       3
现发现只能显示3,1和2都不能显示，text的multiline为true,代码如下，求高手指教

Private Sub command1_Click()
Dim i As Integer
For i = 1 To 3
Text1.Text = i & Chr(10) & Chr(13)
Print Text1.Text
Next
End Sub

[解决办法]

Private Sub command1_Click()
Dim i As Integer
Text1.Text = ""
For i = 1 To 3
Text1.Text = Text1.Text & i & vbCrLf
Print Text1.Text
Next
End Sub