result = MsgBox ("The Windows Explorer Stopped Working :(", vbCritical, "Explorer.exe Stopped Working")

Select Case result
Case vbOk
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "error.vbs"

End Select