Using MSscriptControl in VB.net adding an object gives Specified cast is not valid error

Question

Here a sample code that produces the error. I have used MSscript in VB projects in the past and those projects are functioning.

The error reported is: "When ca