有个关于VB的问题，求帮助啊

已知有序数组 a，数组 a 中的元素分别为 ：4, 6, 12, 20, 31, 63, 75, 89, 100。
用VB语言编程：输入一个数，插入数组a中，使数组a中的元素仍保持由小到大的顺序，并输出。提示：将新插入数和原数组元素放入新数组。

Option Explicit

Private Sub Command1_Click()
Dim a(8) As Integer
Dim aNew(9) As Integer
Dim x As String
Dim I As Integer, J As Integer

a(0) = 4
a(1) = 6
a(2) = 12
a(3) = 20
a(4) = 31
a(5) = 63
a(6) = 75
a(7) = 89
a(8) = 100

x = Int(InputBox("请输入一个数："))

I = 0
Do While I < 9
    If a(I) < x Then
        aNew(I) = a(I)
    Else
        aNew(I) = x
        Exit Do
    End If
    I = I + 1
Loop

If I > 8 Then
    aNew(I) = x
Else
    For J = I To 8
        aNew(J + 1) = a(J)
    Next
End If
End Sub

这样有点麻烦啊，还要一个一个定义，已经自己想出来了，谢谢帮助

img