急求！！！vb 将31 7 3 15 11 8 1 6从小到大排列，再将25插入数列，保持序列不变

1、写入数组。
2、排序。
3、插入。
代码如下：
Dim 数组
Dim 数据数 As Integer
Const 插入数据 = 12

Private Sub Command1_Click()
数据数 = UBound(数组)
Print "原始数据："
输出
For i = 0 To 数据数 - 1
For j = i + 1 To 数据数
If Val(数组(i)) > Val(数组(j)) Then
临时 = 数组(i)
数组(i) = 数组(j)
数组(j) = 临时
End If
Next j
Next i
Print "排序后："
输出
End Sub

Private Sub Command2_Click()
数据数 = 数据数 + 1
ReDim Preserve 数组(数据数)
For i = 数据数 - 1 To 0 Step -1
If Val(数组(i)) > 插入数据 Then
数组(i + 1) = 数组(i)
Else
Exit For
End If
Next i
数组(i + 1) = 插入数据
输出
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Command1.Caption = "排序"
Command2.Caption = "插入25"
数组 = Split("31 7 3 1