一道VB排序题

在文本框Text1中输入一系列以一个空格间隔的数据(如:2 1 3 6 4 7 5),把它们放入数组后,按数值从小到大排序,并将排序后的数组以一个英文","间隔显示在文本框Text2中(如:1,2,3,4,5,6,7,)。界面如图所示，程序在命令按钮"command1"的单击事件中完成
提示:
1.将一系列以空格间隔的数据放入数组可以采用以下语句：
Dim x
x = Split(Trim(Text1.Text)) 文本框数据以空格为分隔符把数据分割到数组x中，数组下界为0，上界为UBound(x)
2.输出的Text2文本框中不包含空格等其它多余字符。

【我做的】
Private Sub Command1_Click()
Dim x
x = Split(Trim(Text1.Text))
For i = 0 To (UBound(x) - 1)
For j = i + 1 To UBound(x)
If x(i) > x(j) Then
temp = x(i): x(i) = x(j): x(j) = temp
End If
Next j
Next i
Text2.Text = ""
For i = 0 To UBound(x)
Text2.Text = Text2.Text + x(i) + ","
Next i
End Sub

排序时对时错
请帮我看看错在哪里（希望能详细说出我错在哪里）
PS：这道题就是要求用选择法排序的

VB排序题 一道语文排序题 JAVA一道排序题 一道排序 VB排序题 急啊！！！！！！11 帮忙做一道题：关于冒泡排序与快速排序。 请教一道VB题 求一道vb题 一道VB题 一道vb编程题