Как сделать игру Угадай число

Простите за некрякнутый Бендикам. Кстати, вот моя страница во Вконтакте: ---------------------------------------------------------------------- ---------------------------------------------------------------------- Посмотрите лучше в ютубе. И да, я не боюсь скрывать лицо) Set y = CreateObject(““) Set y = Nothing Do a = 0 u = 0 Randomize Number = Int((RND*99) 1) MsgBox “Я загадал число от 1 до 100, попробуй отгадать“,64,“Угадайка“ Do a = a 1 c = InputBox(“Угадай число“ & vbCrLf & vbCrLf & “Попытка: “ & a & vbCrLf & vbCrLf & “Чтобы посмотреть результаты введите число !“ & vbCrLf & vbCrLf & “Для выхода оставьте поле пустым“ & vbCrLf & vbCrLf,“Угадайка“) If c = “!“ Then CreateObject(““).Run “notepad C:\Windows\“,3,True : Exit Do If c ““ Then If IsNumeric(c) = True Then If CInt(c) < Number Then MsgBox “Нет,это не “ & c & “. Я загадал число больше“,64,“Угадайка“ If CInt(c) > Number Then MsgBox “Нет,это не “ & c & “. Я загадал число мен