广▋州▋高▋薪▋招▋聘▋捐▋卵

█微信号█ 153★8444★9023 █供卵试管婴儿████代孕选性别生男孩 ██试管包出生██代孕男孩██代孕包出生███代孕选性别██试管婴儿███代孕生男孩█████试管婴儿代孕生男孩███供卵试管婴儿代孕██

VB从word中的字符串明明是和文件名匹配的，为何显示不匹配？

Private Sub Command6_Click()
    Dim i As Integer
    Dim j As Integer
    Dim tuhao As String
    Dim tuming As String
    
    Dim wrdapp As Object
    Dim wrddoc As Object
    Set wrdapp = CreateObject("word.application")
    Set wrddoc = wrdapp.Documents.Open(Text6.Text)


    Dim k As Integer
    Dim A As Integer
    
    Dim Myname As String
    Dim Mynamewuhouzhui As String
    Dim Mynamehouzhui As String
    
    Dim Myname2 As String
    Dim Mypath As String
    Dim Mypathname As String
    Dim Mypathname2 As String
    pltjtm.List2.Clear
    
    For k = 0 To List1.ListCount - 1
            Mypathname = List1.List(k)
            Mypath = Mid(Mypathname, 1, InStrRev(Mypathname, "\") - 1)
            Myname = Right(Mypathname, Len(Mypathname) - InStrRev(Mypathname, "\"))
            Mynamewuhouzhui = Mid(Myname, 1, InStrRev(Myname, ".") - 1)
            Mynamehouzhui = Right(Myname, Len(Myname) - InStrRev(Myname, "."))
            For i = 1 To 5
                For j = 13 To 28
                    tuhao = wrddoc.Tables(i).Cell(j, 2).Range.Text
                    tuhao = Left(tuhao, Len(tuhao) - 1)

                    A = InStr(Mynamewuhouzhui, tuhao)

                    If A > 0 Then
                        tuming = wrddoc.Tables(1).Cell(j, 3).Range.Text
                        tuming = Left(tuming, Len(tuming) - 1)
                    
                        Myname2 = Replace(Mynamewuhouzhui, Mynamewuhouzhui, Mynamewuhouzhui & " " & tuming & "." & Mynamehouzhui)
                        Name Mypath & "\" & Myname As Mypath & "\" & Myname2
                        pltjtm.List2.AddItem Mypath & "\" & Myname2
                        GoTo 11
                    End If
                Next
            Next

11:
    Next
    
    wrddoc.Close
    wrdapp.Quit