result = MsgBox ("Si, admetez-le !", vbInformation ,"Naif.exe viens d'être retrouvé !")

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

End Select