【マクロ】メモ帳を起動させる

Sub Sample1()    Dim rc As Long    rc = Shell("notepad.exe", vbNormalFocus)    If rc = 0 Then MsgBox "起動に失敗しました"End Sub moug