Transitive relation

string2 = txt_relations.Text
string2 = Trim(string2)
array2 = Split(string2, " ", -1, vbTextCompare)

string2 = Replace(string2, "(", "")
string2 = Replace(string2, ")", "")
string2 = Replace(string2, ",", " ")
string2 = Trim(string2)

array3 = Split(string2, " ", -1, vbTextCompare)

Function CheckIsR(ByVal array1, ByVal array2)
Dim i As Integer
Dim TempString1 As String
Dim TempString2 As String
Dim TempArray
Dim counter
counter = 0

'MADE SOMETHING LIKE (1,1) (2,2) OR (A,A) (B,B) FROM THE DOMAIN ELEMENTS
For i = 0 To UBound(array1)
    If TempString1 = "" Then
        TempString1 = "(" + array1(i) + "," + array1(i) + ")"
    Else
        TempString1 = TempString1 + " " + "(" + array1(i) + "," + array1(i) + ")"
    End If
Next i

'MADE IT AS ARRAY EACH NEW RELATION AS AN ARRAY ELEMENT
TempArray = Split(TempString1, " ", -1, vbTextCompare)

'MADE A STRING FROM THE RELATIONS (THE ORIGINAL RELATIONS ENTERED BY USER)
For i = 0 To UBound(array2)
    If TempString2 = "" Then
        TempString2 = array2(i)
    Else
        TempString2 = TempString2 + " " + array2(i)
    End If
Next i

'CHECK IF THE NEW RELATIONS SUCH AS (1,1) (2,2) THAT ARE MADE FROM DOMAIN ARE FOUND IN THE RELATIONS STRING
'IF ONE OF THEM WAS NOT FOUND THEN COUNTER = COUNTER + 1

For i = 0 To UBound(TempArray)
    If InStr(1, TempString2, TempArray(i), vbTextCompare) = 0 Then
        counter = counter + 1
    Else
    
        'SKIP ONLY (OR DO NOTHING)
        lbl_skip.Caption = ""
    End If
Next i

'IF COUNTER IS EQUAL TO ZERO THEN IT'S REFLEXIVE, ELSE IT'S NOT REFLEXIVE
If counter = 0 Then
    CheckIsR = True
Else
    CheckIsR = False
End If
End Function