i have an old program that has the following in it's code. It used to use wp 6.0 to run macros to run reports. How can i change to work on wp 9.0?

DO while this.WpChan=-1 .and. i<11
this.WpChan = DDEInitiate('WPWIN60_macros',"commands")
i=i+1
ENDDO