if (spoon.Offered)
{
     spoon.Accept();
     mouth.Open();
     mouth.Insert(spoon);
}

Dim xlApp As Excel.Application
With xlApp = New Excel.Application
    '...
    .Quit
End With

With New Excel.Application
    '...
    .Quit
End With

With New Excel.Application
    .Visible = True
    '...
    .Quit
End With

coclass TextBox {
    [default] interface IMdcText;
    [default, source] dispinterface MdcTextEvents;
};

Dim a As Solidy.Solidy
Sub Test()
    Dim Address As LongLong
    Address = GetAddress(AddressOf somemethod)
    Set a = New Solidy.Solidy a.PerformActionAsync 0, Address
    Debug.Print ("Sub ended")
End Sub

Function GetAddress(AddressOfMethod As LongLong) As LongLong
    GetAddress = AddressOfMethod
End Function

Sub somemethod()
    Debug.Print ("Async Action begin")
    For i = 1 To 1000
        Debug.Print ("Step " & i)
    Next
    Debug.Print ("Async Action end")
End Sub