Uma função VB.NET que recebe um valor inteiro e informa se o mesmo é um número primo - Desafio de Programação Resolvido em VB.NET

Function primo(valor As Integer) As Boolean
  ' implementação aqui
End Function

Informe um valor inteiro: 7
O numero informado é primo

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    Dim numero As Integer

    ' vamos pedir para o usuário informar um número inteiro
    Console.Write("Informe um valor inteiro: ")
    numero = Int32.Parse(Console.ReadLine())

    ' vamos verificar se o valor informado é um número primo
    If primo(numero) Then
      Console.WriteLine("O numero informado é primo.")
    Else
      Console.WriteLine("O numero informado NÃO é primo.")
    End If

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

  ' função que retorna verdadeiro se o número fornecido
  ' como argumento for primo
  Function primo(valor As Integer) As Boolean
    ' se o valor fornecido for 7, a variável i do laço contará
    ' de 2 até 7 / 2 (divisão inteira), ou seja, 3. Se o 
    ' módulo de 7 por qualquer um dos valores neste intervalo 
    ' for igual a 0, então o número não é primo
    For i As Integer = 2 To (valor / 2)
      If valor Mod i = 0 Then
        Return False ' não é primo
      End If
    Next

    Return True
  End Function

End Module