Даны целые числа a1<= a2<= .<= an и число с. Получить последовательность a1<= a2<= .<= an+1, включив в нее число с

Option Explicit
 
Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim N As Integer, c As Integer, I As Integer, A() As Integer, B() As Integer
N = Val(InputBox("Введите колличество чисел n= "))
 
c = Val(InputBox("Введите число с="))
ReDim Preserve A(N), B(N)
A(N) = c
Randomize
    For I = 0 To N - 1
        A(I) = Rnd * 10
       List1.AddItem (A(I))
    Next
List1.AddItem (A(N))
 
B = BubbleSort(A, N + 1)
    For I = 0 To N
       List2.AddItem (B(I))
    Next
End Sub
 
'Функция для сортировки массива методом пузырька
Function BubbleSort(ByRef Arr() As Integer, ByRef N1 As Integer) As Integer()
    Dim I As Integer
    Dim J As Integer
    Dim Tmp As Integer
 
    For I = 0# To N1 - 1# Step 1
        For J = 0# To N1 - 2# - I Step 1
            If Arr(J) > Arr(J + 1#) Then
                Tmp = Arr(J)
                Arr(J) = Arr(J + 1#)
                Arr(J + 1#) = Tmp
            End If
        Next J
    Next I
    BubbleSort = Arr()
End Function

 If A(I) <= c And c > A(I + 1) Then

Private Sub Command3_Click()
List1.Clear
List2.Clear
Dim N As Integer, c As Integer, I As Integer, A() As Integer
N = Val(InputBox("Введите колличество чисел n= "))
 
  ReDim Preserve A(N)
    For I = 0 To N - 1
         A(I) = I * 2
         List1.AddItem (A(I))
    Next
c = Val(InputBox("Введите число с="))
I = N
    Do Until c >= A(I - 1)
       A(I) = A(I - 1)
       I = I - 1
    Loop
A(I) = c
    For I = 0 To N
         List2.AddItem (A(I))
    Next
End Sub