文本框的显示问题

Option ExplicitSub OUTPUT(Nc%, B%())
Dim m$
   Dim S$, i%
    m = 6
    S = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     For i = 1 To m
         Print Mid(S, B(i), 1);
    Next i
    Print
End SubSub Combination(N%, m%)
    ReDim B%(m)
    Dim i%, j%, Nc%
    For i = 1 To m: B(i) = i: Next
    Nc = 1
    OUTPUT Nc, B()
    '
    Do While B(1) <= N - m
        j = m
        Do While B(j) = N + j - m: j = j - 1: Loop
        B(j) = B(j) + 1
        For i = j + 1 To m: B(i) = B(j) + i - j: Next i
        Nc = Nc + 1
        OUTPUT Nc, B()
    Loop
End SubPrivate Sub Form_Click()             '问题是单击窗体将内容显示在文本框中
Call Combination(7, 6)
Text1.Text = Combination(7, 6)
End Sub