Нужно сделать программу "Угадай число" - VB

Формулировка задачи:

Помогите!!! Вот задача: Компьютер загадывает число от 0 до 100 Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно Если разница от 20 до 30 – Выводится «тепло» От 10 до 20 – «Горячо» От 5 до 10 – «Почти угадал» От 1 до 5 – «Еще чуть-чуть!!!» Сделайте подсчет количества попыток за которые отгадано число

Решение задачи: «Нужно сделать программу "Угадай число"»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Sub NumberGuess()
    Dim r&, rr&, s$, res$
    Randomize Timer
ESCHO:
    r = 1 + Rnd * 99 \ 1: s = 0
    
    Do: Do
            s = InputBox("Угадай число от 1 до 100 ?", , s)
            If s = "help" Then MsgBox r
            If s = "" Then If MsgBox("Выйти ?", 68) = vbYes Then Exit Sub
        Loop Until IsNumeric(s)
        
        If r = s Then
            If MsgBox("Ура ты угадал !" & vbLf & "Хочешь еще сыграть ?", 68) = vbNo Then Exit Do
            GoTo ESCHO
        Else
            Select Case Abs(r - s)
            Case 1 To 5: res = "Еще чуть-чуть!!!"
            Case 5 To 10: res = "Почти угадал"
            Case 10 To 20: res = "Горячо"
            Case 20 To 30: res = "Тепло"
            Case Is > 30: res = "Холодно" ' Можно написать Case Else
            End Select
            MsgBox res
        End If
    Loop
End Sub
 
Private Sub Form_Load()
    NumberGuess
    End
End Sub