文本框内容比对，并将不同的字符显示在别一个文本框中

Public Function different(gs1 As String, gs2 As String) As String
    Dim llong, ldif, i As Integer
    Dim s1, s2 As String
    s = ""
    If Len(gs1) > Len(gs2) Then
        llong = Len(gs2)
        ldif = Len(gs1) - Len(gs2)
    Else
        llong = Len(gs1)
        ldif = Len(gs2) - Len(gs1)
    End If
    For i = 1 To llong
        s1 = Mid(gs1, i, 1)
        s2 = Mid(gs2, i, 1)
        If s1 <> s2 Then
            s = s & s2
            If i <> llong Then If Mid(gs1, i + 1, 1) = Mid(gs2, i + 1, 1) Then s = s & "/"
        End If
    Next

    If Len(s) > 0 Then
        If ldif <> 0 Then s = s & Right(gs2, ldif)
       
    End If
    If Right(s, 1) = "/" Then s = Left(s, Len(s) - 1)
    different = s
End Function

贴不了代码，也传不了附件，就这样吧