Private Sub metin_iki_AfterUpdate()
    Dim StrTxt1 As String, StrTxt2 As String, StrDiff As String, StrAdd As String
    Dim i As Integer, j As Integer
    Dim BoolDiff As Boolean
    
    ' Textbox değerlerini al
    StrTxt1 = Me.metin_bir.Value
    StrTxt2 = Me.metin_iki.Value
    
    ' Fark gösterimini ve eklenen metni değişken olarak belirle
    Me.fark_gorunum.Value = ""
    Me.eklenen_metin.Value = ""
    StrDiff = ""
    StrAdd = ""
    
    ' Metin_iki içinde bulunan farklı kısımları belirle
    For i = 1 To Len(StrTxt2)
        BoolDiff = False
        For j = 1 To Len(StrTxt1)
            ' Metin_iki'deki karakter metin_bir'de bulunuyorsa devam et
            If Mid(StrTxt2, i, 1) = Mid(StrTxt1, j, 1) Then
                BoolDiff = True
                Exit For
            End If
        Next j
        ' Metin_iki'de bulunan ancak metin_bir'de bulunmayan karakterler
        If Not BoolDiff Then
            ' Fark gösterimini güncelle, kırmızı renkte işaretle
            StrDiff = StrDiff & "<font color='red'>" & Mid(StrTxt2, i, 1) & "</font>"
            ' Eklenen metni güncelle
            StrAdd = StrAdd & "<font color='red'>" & Mid(StrTxt2, i, 1) & "</font>"
        Else
            ' Fark gösterimine normal karakteri ekle
            StrDiff = StrDiff & Mid(StrTxt2, i, 1)
        End If
    Next i
    ' Farkgorunum ve eklenen_metin textboxlarını güncelle
    Me.fark_gorunum.Value = StrDiff
    Me.eklenen_metin.Value = StrAdd
End Sub