用vba 写一段文本比较的代码

以下是 VBA 代码，它可以比较两个文本字符串并返回相同或不同的部分：

Sub CompareText()
    Dim str1 As String, str2 As String
    Dim result As String
    
    str1 = "文本1"
    str2 = "文本2"
    
    For i = 1 To Len(str1)
        If Mid(str1, i, 1) = Mid(str2, i, 1) Then
            result = result & Mid(str1, i, 1)
        El