Как в RichTextBox вывести числовой результат - VB

Формулировка задачи:

Здравствуйте,такой вопрос. Есть код :

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Dim a() As String, m As Integer
 
Sub Loto(ByVal i As Integer, ByVal n As Integer)
For i = i + 1 To m - n + 1
  a(n) = i
  If n > 1 Then
    Loto i, n - 1
  Else
RichTextBox1.DataFormat.Type = fmtGeneral
 
 RichTextBox1.Text = Join(a)
 
End If
Next i
 
End Sub
 
Sub main()
Dim n As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
ReDim a(1 To n)
Loto 0, n
 
End Sub
 
Private Sub Command1_Click()
Me.Cls
main
 
End Sub

Что нужно подправить,чтобы результат выводился в RichTextBox1 не последние цифры и всё,а в столбик все комбинации. То есть теперь выводит

5 4

а надо чтобы выводил

1 2 1 3 1 4 1 5

и так далее.

Решение задачи: «Как в RichTextBox вывести числовой результат»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim a() As String, m As Integer
 
Sub Loto(ByVal i As Integer, ByVal n As Integer)
      For i = i + 1 To m - n + 1
           a(n) = i
           If n > 1 Then
              Loto i, n - 1
           Else
              RichTextBox1.DataFormat.Type = fmtGeneral
              RichTextBox1.Text = RichTextBox1.Text & Join(a) & vbCrLf '<-- !!!!
           end if
      Next i
End Sub
 
Sub main()
Dim n As Integer
     n = Val(Text1.Text)
     m = Val(Text2.Text)
     ReDim a(1 To n)
     Loto 0, n
End Sub
 
Private Sub Command1_Click()
      Me.Cls
      main
End Sub