求解一段代码产意思。哪位高人指点下

tzjx200521

    With Sheets(y)
        If .Name Like "*" & Mid(arr(x, 1), 8, 6) & "*" Then
            myrow = .Cells.Find(arr(x, 1)).Row
            mycol = .Cells.Find(arr(x, 1)).Column
              If myrow > 0 Then
                .Cells(myrow + 1, mycol) = arr(x, 2)
                .Cells(myrow + 2, mycol) = arr(x, 3)
                .Cells(myrow + 3, mycol) = arr(x, 4)
                GoTo 100
              End If

tzjx200521

Mid(arr(x, 1), 8, 6  这个啥意思？