Set objWshShell = WScript.CreateObject("WScript.Shell")
satırında WScript fazlaydı onu sildim sadece
teşekkürler

strText = "Birşeyler yapılacak" & Chr(13)

strText = strText & "Yapmak istediğine eminmisin"

strTitle = "Onay Penceresi"

intType = vbYesNoCancel + vbQuestion + vbDefaultButton2

intSure = 5 'süre saniye cinsinden



Set objWshShell = CreateObject("WScript.Shell")

intResult = objWshShell.PopUp(strText, intSure, strTitle, intType)