Dim a(0 To 3) As String
Dim b(0 To 3) As String
Dim c As Variant
a(0) = "1" : a(1) = "2" : a(2) = "3" : a(3) = "4"
b(0) = "11" : b(1) = "2" : b(2) = "3" : b(3) = "14"
' 2 arrays are initialized here
c = Evaluate({@Trim(@Replace(@explode("} & Implode(a, "|") & {"; "|"); @Replace(@explode("} & Implode(a, "|") & {"; "|"); @explode("} & Implode(b, "|") & {"; "|"); ""); ""))})