Угадывание числа не больше чем за три попытки - Visual Basic .NET

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

Вроде простая задача по теме if.than, но никак не получается Разработать программу, которая отгадывает задуманное пользователем число от 0 до 7, задавая ему вопросы вида "Задуманое число больше N?" и получая ответы "Да", или "Нет". Прогопмма должна задать не больше трёх вопросов, после чего вывести ответ

Решение задачи: «Угадывание числа не больше чем за три попытки»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim N As Integer = NumericUpDown1.Value
    MsgBox("Загадано число " & Quesser(N).ToString)
End Sub
Private Function Quesser(ByVal N As Integer) As Integer
    Dim R As Integer
    If N > 3 Then
        If N > 5 Then
            If N = 6 Then
                R = 6
            Else
                R = 7
            End If
        Else
            If N = 5 Then
                R = 5
            Else
                R = 4
            End If
        End If
    Else
        If N > 1 Then
            If N = 2 Then
                R = 2
            Else
                R = 3
            End If
        Else
            If N = 0 Then
                R = 0
            Else
                R = 1
            End If
        End If
    End If
    Return R
End Function