有没有办法通过excel vba检查由外部宏显示的msgbox的内容？

Sub CheckExternalMacroMsgBox()
    Dim vbComp As VBComponent
    Dim vbMod As CodeModule
    Dim lineNum As Long
    Dim codeLine As String
    
    ' 遍历所有VB组件
    For Each vbComp In ThisWorkbook.VBProject.VBComponents
        ' 仅处理标准模块
        If vbComp.Type = vbext_ct_StdModule Then
            Set vbMod = vbComp.CodeModule
            
            ' 遍历模块的所有代码行
            lineNum = 1
            Do While lineNum < vbMod.CountOfLines
                codeLine = vbMod.Lines(lineNum, 1)
                
                ' 检查代码行是否包含MsgBox函数
                If InStr(1, codeLine, "MsgBox") > 0 Then
                    ' 提取MsgBox的内容
                    Dim msgBoxContent As String
                    msgBoxContent = Mid(codeLine, InStr(1, codeLine, "MsgBox") + 7)
                    
                    ' 在Immediate窗口中输出MsgBox的内容
                    Debug.Print msgBoxContent
                End If
                
                lineNum = lineNum + 1
            Loop
        End If
    Next vbComp
End Sub