Kod:
Private Sub Komut4_Click()
Dim metin1, metin2, farkli1, farkli2 As String
Dim i As Integer
metin1 = Metin0
metin2 = Metin
farkli1 = ""
farkli2 = ""
If Len(metin1) <> Len(metin2) Then
MsgBox "metin boyutları eşit değil"
Exit Sub
Else
For i = 1 To Len(metin1)
If Mid(metin1, i, 1) = Mid(metin2, i, 1) Then
'MsgBox "Metinlerinizin " & i & "Harfi Eşit"
Else
farkli1 = farkli1 + Mid(metin1, i, 1)
farkli2 = farkli2 + Mid(metin2, i, 1)
'MsgBox "Metinlerinizin " & i & " Harfi Eşit Değil"
End If
Next
End If
MsgBox farkli1 & " - " & farkli2
End Sub