1Attribute VB_Name = "Module1" 2Option Explicit 3 4Sub main() 5 Dim obj As Object 6 Set obj = CreateObject("dcomtest.writerdemo.wsc") 7 obj.run 8End Sub 9