求助Win11下边的代码为什么没作用，Win10运行没问题

Sub Main()
Dim wb, sht, rng, xlsApp
On Error Resume Next
Set xlsApp = GetObject(, "Excel.Application")
If xlsApp Is Nothing Then
Set xlsApp =CreateObject("Excel.Application")
End If
Set wb = MsgBox(wb.Name, 64, "xx")
End Sub