how to use WScript object in qtp

Dim oShell
Dim returnvalue
Set Shell = CreateObject("WScript.shell")
returnvalue = oShell.Run("notepad.exe",4,True)
reporter.ReportEvent micPass,"test_passed","executed"