Module Module1
    Sub Main()
        Dim resposta As String
        Do
            Console.Write("Escreva um número inteiro entre 1 e 10000 ou 'Sair' para sair: ")
            resposta = Console.ReadLine().ToUpper
            If resposta <> "SAIR" Then
                Dim NUM As Integer
                If Integer.TryParse(resposta, NUM) Then
                    If NUM >= 1 AndAlso NUM <= 10000 Then
                        Dim Primo As Boolean = True 'Vamos assumir que é sempre um número primo até provarmos que não é
                        If NUM > 3 Then
                            For ciclo As Integer = 2 To (NUM - 1)
                                If NUM Mod ciclo = 0 Then
                                    Primo = False
                                    Exit For
                                End If
                            Next ciclo
                        End If
                        If Primo Then
                            Console.WriteLine(NUM.ToString + " é um número primo.")
                        Else
                            Console.WriteLine(NUM.ToString + " não é um múmero primo.")
                        End If
                    Else
                        Console.WriteLine("O número que escreveu não é nenhum valor entre 1 e 10000")
                    End If
                Else
                    Console.WriteLine("Verifique se escreveu 'Sair' corretamente ou se pretendia introduzir um número")
                End If
            End If
        Loop While resposta <> "SAIR"
    End Sub
End Module