高手啊··关于vb冒泡排序后再插一个数进去的问题··在线等``·

随机产生10个1～100的整数放入数组中，按从小到大顺序排列；再从键盘上输入一个该区间的整数，将其插入到已排序好的数组中，使得该序列仍是从小到大的顺序排列。

恩··请尽量用简单点的函数···
如果不插数，用冒泡排序我会做...
一要插数我就不得行咯```
嘿嘿```高手```谢谢```
可不可以用自定义函数做··？

Option Base 1
Dim a() As Integer

Private Sub Form_Click()
ReDim a(10) As Integer
Dim i, j, cup As Integer
For i = 1 To 10
a(i) = Int(Rnd * 91 + 10)
Print a(i);
Next i
Print
For i = 1 To 10 - 1
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
cup = a(j)
a(j) = a(j + 1)
a(j + 1) = cup
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
Print

insNum a(), InputBox("请输入一个0-100的整数")

For i = 1 To UBound(a())
Print a(i);
Next

End Sub

Function insNum(arr() As Integer, intNum As Integer) '插数函数，第一个参数是要插数的数组，第二个参数是要插的数
Dim intU As Integer
intU = UBound(arr())
ReDim Preserve arr(intU + 1)
Dim intTem As Integer
arr(intU + 1) = intNum

For i = 1 To UBound(arr()) - 1
For j = 1 To UBound(arr()) - i
If arr(j) > arr(j + 1) Then