Dim objTestObject As Object
    
    On Error GoTo err_handler
    Set objTestObject = CreateObject("TestGetObject.ShwMsg")
    objTestObject.addnum
    MsgBox objTestObject.Number
    If Err.Number <> 0 Then
        MsgBox "wrong"
        Exit Sub
    End If
    If objTestObject Is Nothing Then
        MsgBox "Wrong"
    Else
        objTestObject.ShwMsg
    End If
    Set objTestObject = GetObject("", "TestGetObject.ShwMsg")
    objTestObject.ShwMsg
    Set objTestObject = GetObject(, "TestGetObject.ShwMsg")(这一句出错)
    objTestObject.ShwMsg    Set objTestObject = Nothing
到底如何提取,当前已经实例化的对象?谢谢!!