文本转成字符串

[jp0077777]

有text1 text2...text50个文本框
我想把他们全部整合到成一个字符串,并且用空格分隔
就像是 s=text1.text & " " & text2.text & " " &..... & text50.text

但是我不想一个个text的输 那样要打50次text.text
有好的办法吗？
谢了

[supergreenbean]

    Dim s As String
    Dim i As Long
    s = ""
    For i = 1 To 50
        s = s & Form1.Controls("Text" & CStr(i)).Text
    Next