【VBA】一次元配列と一次元配列を結合する

Public Function JoinOneDimAry( _
                                    ByRef ary1 As Variant, _
                                    ByRef ary2 As Variant) As Variant
    JoinOneDimAry = Split(Join(ary1, vbCrLf) & vbCrLf & Join(ary2, vbCrLf), vbCrLf)
End Function