Не разрешать скрещивать собак с родственными связями

Option Explicit
Dim Arr() As String
Dim Sborka As String
 
Private Sub Command1_Click()
Dim i As Long, j As Long, Flag As Boolean, Temp As String, count As Long
 
Sborka = Text1 & "." & Text2
Arr = Split(Sborka, ".")
Temp = ""
For i = LBound(Arr) To UBound(Arr)
  If Arr(i) <> Temp Then
     count = 1
     For j = i + 1 To UBound(Arr)
         If Arr(i) = Arr(j) Then
            Arr(j) = Temp
            count = count + 1
         End If
     Next
        If count >= 2 Then Flag = True: Print "Совпадения "; Arr(i); " - "; count - 1
   End If
Next
 If Flag = False Then Print "Повторяющихся совпадений нет ";
End Sub

Option Explicit
Dim Arr() As String, Arr1() As String
Dim Sborka As String
 
Private Sub Command1_Click()
Cls
Dim i As Long, j As Long, Flag As Boolean, count As Long
 
Arr = Split(Text1, ".")
Arr1 = Split(Text2, ".")
 
For i = LBound(Arr) To UBound(Arr)
     count = 0
     For j = i + 1 To UBound(Arr1)
         If Arr(i) = Arr1(j) Then
            count = count + 1
         End If
     Next
        If count > 0 Then Flag = True: Print "Совпадения "; Arr(i); "  -  "; count
Next
 If Flag = False Then Print "Совпадений нет ";
End Sub

For j = LBound(Arr1) To UBound(Arr1)