Open with Notepad

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "Notepad2"