VBA如何得到具体哪个布局中的数据

Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())
       Dim fType() As Integer, fData()
       Dim index As Long, i As Long
       
       index = LBound(gCodes) - 1
               
       For i = LBound(gCodes) To UBound(gCodes) Step 2
               index = index + 1
               ReDim Preserve fType(0 To index)
               ReDim Preserve fData(0 To index)
               fType(index) = CInt(gCodes(i))
               fData(index) = gCodes(i + 1)
       Next
       typeArray = fType: dataArray = fData
End Sub
Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet
       On Error Resume Next
       ThisDrawing.SelectionSets(SSetName).Delete
       Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName)
End Function
Sub SelectAllLayoutText()
       Dim ss As AcadSelectionSet
       Set ss = CreateSelectionSet
       Dim typeArray As Variant
       Dim dataArray As Variant
       BuildFilter typeArray, dataArray, 0, "TEXT"
       ss.Select acSelectionSetAll, , , typeArray, dataArray
       Debug.Print ss.Count
End Sub