メモ帳を起動する方法

sub test()
　Dim myLong As Long
　myLong = Shell("notepad.exe", vbNormalFocus)
end sub