まんま Class TestClass Private Sub Class_Initialize MsgBox("TestClass started") End Sub Private Sub Class_Terminate MsgBox("TestClass terminated") End Sub End Class Set X = New TestClass Set X = Nothing