Dim a(), b(), c(), i, j, k
a = Array(1, 2, 5, 14, 16, 18, 20, 22)
b = Array(3, 4, 6, 8, 10, 12)
i = 0
j = 0
k = 0
ReDim c(UBound(a) + UBound(b) + 1)
Do
If a(i) < b(j) Then
c(k) = a(i)
k = k + 1
i = i + 1
Else
c(k) = b(j)
k = k + 1
j = j + 1
End If
If i > UBound(a) Then
For i = j To UBound(b)
c(k) = b(i)
k = k + 1
Next
Exit Do
ElseIf j > UBound(b) Then
For j = i To UBound(a)
c(k) = a(j)
k = k + 1
Next
Exit Do
End If
Loop
For k = 0 To UBound(c)
Print c(k);
Next
End Sub