set WshShell = WScript.CreateObject("WScript.Shell")
Dim Res,Text,Title, MyValue, Response
Title="Dimi4 ©"
Randomize
Do Until Response = vbNo
   MyValue = Int((10 * Rnd) + 1)   
   strMenu="Я загадав число від нуля до десяти" & VbCrLf
strMenu=strMenu & "Спробуйте його відгадати " & VbCrLf
tb1=InputBox(strMenu,Title)
if tb1 = MyValue then
msgbox("Ви вгадали число")
end if
if tb1 <> MyValue then
MsgBox("Упс.... Ви не вгадали. ") & vbsrlf & ("Я загадав ") & MyValue
 Response = MsgBox ("Загадати ще раз? ", vbYesNo, Title)
 end if
Loop