新手学VB--换行问题———跪求

简单的输出一个斐波那契数列，怎么换自动行啊，
我把换行的注释掉怎么也是一行一个数，我想实现一行10个该如何修改啊Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim m As Integer
  m = Text1.Text
Do While fibolist(i) < m
  Form1.Print fibolist(i) & ","
  i = i + 1
  s = s + 1
  'If s Mod 10 = 0 Then Print
Loop
Debug.Print s Mod 10
End Sub

Function fibolist(ByVal n As Integer) As Integer
If n = 0 Then
  fibolist = 1
ElseIf n = 1 Then
  fibolist = 1
Else
  fibolist = fibolist(n - 2) + fibolist(n - 1)
End If
End Function

---

哪里自动？

---

VB code:
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim m As Integer
Dim strTemp As String

m = Text1.Text
Do While fibolist(i) < m
strTemp = strTemp & fibolist(i) & ","

i = i + 1
s = s + 1
If s Mod 10 = 0 Then
Me.Print strTemp
strTemp = ""
End If
Loop
Me.Print strTemp
Debug.Print s Mod 10
End Sub

Function fibolist(ByVal n As Integer) As Integer
If n = 0 Then
fibolist = 1
ElseIf n = 1 Then
fibolist = 1
Else
fibolist = fibolist(n - 2) + f