２個の配列をマージする方法

Sub test1()
    Dim names1 As Variant
    Dim names2 As Variant
    Dim names3 As Variant
    
    names1 = Array("太郎", "次郎", "三郎")
    names2 = Array("四郎", "五郎", "六郎")
    
    '配列の内容を全て文字列として結合した後、分割して一つの配列にする。
    names3 = Split(Join(names1, vbCrLf) & vbCrLf & Join(names2, vbCrLf), vbCrLf)
    
    '中身の確認
    Dim name As Variant
    
    For Each name In names3
        Debug.Print name
    Next name
End Sub 

Option Explicit
 
Sub test2()
    Dim names1 As Variant
    Dim names2 As Variant
    Dim names3 As Variant
    
    names1 = Array("太郎", "次郎", "三郎")
    names2 = Array("四郎", "五郎", "六郎")
    
    names3 = mergeArray(names1, names2)
    
    '中身の確認
    Dim name As Variant
    
    For Each name In names3
        Debug.Print name
    Next name
End Sub
 
Function mergeArray(ary1 As Variant, ary2 As Variant)
    Dim newArray()
    Dim i As Integer
    Dim itemCounter As Integer
    
    itemCounter = 0
    
    '１個目の配列の内容を新しい配列に移す。
    For i = LBound(ary1) To UBound(ary1)
        ReDim Preserve newArray(itemCounter)
        newArray(itemCounter) = ary1(i)
        itemCounter = itemCounter + 1
    Next i
    
    '２個目の配列の内容を新しい配列に移す。
    For i = LBound(ary2) To UBound(ary2)
        ReDim Preserve newArray(itemCounter)
        newArray(itemCounter) = ary2(i)
        itemCounter = itemCounter + 1
    Next i
    
    mergeArray = newArray
End Function