Faça um programa que sorteie um número aleatório entre 0 e 500 e pergunte ao usuário qual é o "número mágico". O programa deverá - Lista de Exercícios Resolvidos de VB.NET

Adivinhe o número mágico: 100
Tente um número menor.

Adivinhe o número mágico: 50
Tente um número maior.

Adivinhe o número mágico: 60
Tente um número maior.

Adivinhe o número mágico: 80
Tente um número maior.

Adivinhe o número mágico: 90
Tente um número maior.

Adivinhe o número mágico: 95
Tente um número menor.

Adivinhe o número mágico: 94
Tente um número menor.

Adivinhe o número mágico: 93
Tente um número menor.

Adivinhe o número mágico: 92
Você acertou o número em 9 tentativas.
Classificação: Normal

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim numero_magico, palpite, tentativas As Integer
    Dim acertou As Boolean

    ' inicializa as variáveis necessárias
    tentativas = 0
    acertou = False

    ' vamos sortear o número entre 0 e 500
    Dim rand As Random = New Random()
    numero_magico = rand.Next(0, 501)

    ' um laço que repete enquanto o usuário não
    ' acertar o número mágico
    While Not acertou
      Console.Write("Adivinhe o número mágico: ")
      palpite = Int32.Parse(Console.ReadLine())

      ' registra essa tentativa
      tentativas = tentativas + 1

      ' o usuário acertou o número mágico?
      If palpite = numero_magico Then
        Console.WriteLine("Você acertou o número em " & tentativas & " tentativas.")

        ' mostra a classificação do usuário
        If tentativas <= 3 Then
          Console.WriteLine("Classificação: Muito Sortudo")
        ElseIf (tentativas >= 4) And (tentativas <= 4) Then
          Console.WriteLine("Classificação: Sortudo")
        ElseIf (tentativas >= 7) And (tentativas <= 10) Then
          Console.WriteLine("Classificação: Normal")
        Else
          Console.WriteLine("Classificação: Tente Novamente")
        End If

        ' sai do laço
        acertou = True
      Else
        ' indica se o palpite é maior ou menor
        If palpite < numero_magico Then
          Console.WriteLine("Tente um número maior." & vbCrLf)
        Else
          Console.WriteLine("Tente um número menor." & vbCrLf)
        End If
      End If
    End While

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module