关于Win11及Office16中使用Ms Script Control 1.0的控件提示没有注册的问题

railgun2008

当前运行环境win11，office16

Sub Test()
    Dim s As String
    s = "1+2"
    MsgBox fCalExp(s) '正常应该返回3
End Sub

Function fCalExp(s As String)
    Dim VBS As New ScriptControl
    VBS.Language = "VBScript"
    fCalExp = VBS.Eval(s)
    Set VBS = Nothing
End Function

备注：以前曾经在win10，office2016版本中正常使用，当前环境好像有问题，


VBA中已经引用Ms Script Control 1.0，但是提示运行时错误，没有注册类

又重新注册msscript.ocx，重新运行还是提示没有注册类，哪位老师知道，这个如何解决，谢谢啦！