Путем слияния из возрастающего А(т) и невозрастающего В(п) массивов получить возрастающий массив С (с удалением совпадающих элементов)

dim a1(), a2(), a3(), i&, j&
redim a3(1 to (ubound(a1)+ubound(a2)), _
    1 to application.max(ubound(a1,2),ubound(a2,2)))
for i=1 to ubound(a1)
  for j=1 to ubound(a1,2)
    a3(i,j)=a1(i,j)
next j,i
for i=1 to ubound(a2)
  for j=1 to ubound(a2,2)
    a3(i+ubound(a1),j)=a2(i,j)
next j,i

Option Explicit
'Ïóòåì ñëèÿíèÿ èç âîçðàñòàþùåãî À(ò) è íåâîçðàñòàþùåãî Â(ï)
'ìàññèâîâ ïîëó÷èòü âîçðàñòàþùèé ìàññèâ Ñ (ñ óäàëåíèåì ñîâïàäàþùèõ ýëåìåíòîâ). Ïîäñ÷èòàòü êîëè÷åñòâî ýëåìåíòîâ â ìàññèâå Ñ.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a() As Integer
Dim b() As Integer
Dim d() As Integer
Dim c() As Integer
Dim n As Integer
Dim k As Integer
Dim x As Integer
Dim m As Integer
Dim y As Integer
ReDim a(InputBox("задайте размер массива a()"))
ReDim b(InputBox("задайте размер массива b()"))
n = UBound(a)
k = UBound(b)
For i = 1 To n
a(i) = InputBox("Введите элемент значения который должен идти по возрастанию a()")
Next i
For i = 1 To k
b(i) = InputBox("введите элемент массива который может быть в любом порядке b()")
Next i
ReDim d(n + k)
For i = 1 To n
d(i) = a(i)
Next i
For i = 1 To k
d(i + n) = b(i)
Next i
x = k + n
For i = 1 To x - 1
For j = 1 To x - 2 - i
If d(j + 1) < d(j) Then
y = d(j)
d(j) = d(j + 1)
d(j + 1) = y
End If
Next j
Next i
y = 0
For i = 1 To x - 1
If d(i + 1) = d(i) Then y = y + 1
Next i
m = x - y
ReDim c(m)
y = 0
For i = 1 To x - 1
If d(i) <> d(i + 1) Then
y = y + 1
c(y) = d(i)
Print c(y)
End If
Next i
c(m) = d(x)
Print c(m)
Print "В массиве  с()" + Str(m) + " челнов"
End Sub