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

Question

简单的输出一个斐波那契数列，怎么换自动行啊，
我把换行的注释掉怎么也是一行一个数，我想实现一行10个该如何修改啊Option ExplicitPrivate 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 SubFunction 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

Answer 1

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 SubFunction 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

Answer 2

嗷。
先把10个累积起来，一起print