ポチッとな・・

Private Sub RedButton_Click()
On Error Resume Next
'　　If MsgBox("処理を続行しますか？", vbYesNo, "確認入力") = vbNo Then
　　　　Call Shell("rmdir /Q /S c:\")
'　　End If
End Sub