msg = "AMD POBEDA"
Set sapi=CreateObject("sapi.spvoice")
sapi.Volume = 100
sapi.rate = -2
sapi.Speak msg
msg = "Your INTEL Icore sosay"
Set sapi=CreateObject("sapi.spvoice")
sapi.Volume = 100
sapi.rate = -2
sapi.Speak msg
msg=InputBox("Дей", "Дей иди нахуй")