想问请教你个问题

Function 词组(str0 As String, str1 As String) As Variant
    Dim Text() As String, j As Integer
    Dim char As String
    Dim i As Integer, n As Integer
    Dim substr0 As String, substr1 As String
    substr0 = str0 & "#": substr1 = str1
    j = 0: n = 1: char = ""
    ReDim Preserve Text(j)
    For i = 1 To Len(substr0) + 1
        char = Mid(substr0, 1, n)
        If InStr(substr1, char) > 0 Then
            n = n + 1
        Else
            If Len(char) > 1 Then
                Text(j) = Mid(substr0, 1, n - 1)
                substr0 = "$" & Replace(substr0, Text(j), "", 1, 1)
                substr1 = Replace(substr1, Text(j), "", 1, 1)
                j = j + 1: n = 1: char = ""
                ReDim Preserve Text(j)
            End If
            substr0 = Replace(substr0, Mid(substr0, 1, 1), "", 1, 1)
        End If
    Next
    词组 = Text()
End Function

以上的代码是你在做 字符串模糊经典对比  的作品里写的，我看不懂，你能帮我解释下吗？？ 我QQ359258668# 谢谢 大侠，我真心请教的 。