Comparison of two Arrays

Hi

I am using the bellow code to compare two arrays but it is not comparing them the way I want

Sub CompareArrays()
Dim ar1() As String
Dim ar2() As String
Dim i As Integer

ar1 = Split("Muhammad Imran Bhatti", " ")
ar2 = Split("Bhatti Imran Muhammad", " ")

For i = LBound(ar1) To UBound(ar1)
    If ar1(i) = ar2(i) Then
    MsgBox ar1(i) & "---" & ar2(i)
    End If
Next i

End Sub

What I want this code to do is
show msgbox like
Muhammad---Bhatti
Muhammad---Imran
Muhammad---Muhammad

Then
Imran---Bhatti
Imran---Imran
Imran---Muhammad

Then
Bhatti---Bhatti
Bhatti---Imran
Bhatti---Muhammad

Hope it makes sense

Best Regards
Imran Bhatti

Hello Try this code

Sub Join_Arrays()
    Dim ar1()   As String
    Dim ar2()   As String
    Dim s       As String
    Dim i       As Integer
    Dim j       As Integer

    ar1 = Split("Muhammad Imran Bhatti", " ")
    ar2 = Split("Bhatti Imran Muhammad", " ")

    For i = LBound(ar1) To UBound(ar1)
        s = ""
        For j = LBound(ar2) To UBound(ar2)
            s = s & ar1(i) & "---" & ar2(j) & vbLf
        Next j
        MsgBox s
    Next i
End Sub

Thanks Yasser
It worked.

You're welcome. Glad I can offer some help
Regards