程序代码：

    Dim i As Integer, j As Integer, N As Integer, M As Integer
    Dim sT1 As String, sT2 As String, T1 As String, T2 As String, TT1 As String
    sT1 = Replace(Trim(Text1.Text), vbCrLf, "")
    sT2 = Replace(Trim(Text2.Text), vbCrLf, "")
    For i = 0 To Len(sT1) - 1
        T1 = T1 & "*" & Mid(sT1, i + 1, 1)
    Next i
    For i = 0 To Len(T1) / 8 - 1
        TT1 = Mid(T1, i * 8 + 1, 8) & "*"
        For j = 0 To Len(sT2) / 6 - 1
            T2 = Mid(sT2, j * 6 + 1, 6)
            If T2 Like TT1 Then Text3.Text = Text3.Text + T2 & vbCrLf
        Next j
     Next i