class CFoo sub PrintHello() "Hello World!" end sub end class dim obj set obj = new CFoo call set obj = nothing