Clearing the Intermediate Window in VBA

I have the follwoing code

 Sub Debug_Print(Message)
    Application.SendKeys "^g ^a {DEL}"
    Debug.Print Message
    Stop    
 End Sub ' Debug_Print

It does NOT print "Messge" unless I put a debug stop on the "Debug.Print" line and manually restart the code.

I have tried putting a Wait after the "Application.Sendkeys" line, but that doesn't make it work either.

Can anybody tell me how to make this work?

Thanks,
Mac