Создать программу с алгоритмом сортировки простого слияния

Function merge(A() As Integer, B() As Integer) As Integer()
Dim R() As Integer
 
         na% = UBound(A)
         nb% = UBound(B)
         
         ReDim R(1 To na% + nb%) As Integer
         
         ia% = 1
         ib% = 1
         ic% = 1
         
         Do
         
            If ia% > na% Then
                
               Do While ib% <= nb%
                  R(ic%) = B(ib%)
                  ic% = ic% + 1
                  ib% = ib% + 1
               Loop
                
               Exit Do
               
            End If
         
            If ib% > nb% Then
                
               Do While ia% <= na%
                  R(ic%) = A(ia%)
                  ic% = ic% + 1
                  ia% = ia% + 1
               Loop
                
               Exit Do
               
            End If
         
            If A(ia%) <= B(ib%) Then
               R(ic%) = A(ia%)
               ia% = ia% + 1
               ic% = ic% + 1
            Else
               R(ic%) = B(ib%)
               ib% = ib% + 1
               ic% = ic% + 1
            End If
         
         Loop
         
         merge = R
         
End Function
 
Sub Test()
Dim X(1 To 5) As Integer
Dim Y(1 To 7) As Integer
Dim Z() As Integer
 
    X(1) = 0
    X(2) = 6
    X(3) = 7
    X(4) = 11
    X(5) = 22
    
    Y(1) = -7
    Y(2) = -3
    Y(3) = 1
    Y(4) = 5
    Y(5) = 8
    Y(6) = 13
    Y(7) = 16
    
    Z = merge(X, Y)
    
    For i% = 1 To 12
        Debug.Print Z(i%)
    Next i%
 
End Sub