run program with wsh

Dim wsh
Set wsh = CreateObject("WScript.Shell")


intReturn = Wsh.Run("notepad ", 1, True)
Set wsh = Nothing

Dim ArgObj
Set ArgObj = WScript.Arguments
For each arg in ArgObj
MsgBox arg
next