Informe um valor inteiro de três dígitos: 753
O valor original é: 753
O valor invertido é: 357

Imports System

Module Program
  Sub Main(args As String())
    ' vamos solicitar ao usuário que informe um valor inteiro
    ' na faixa 100 a 999 (incluindo)
    Console.Write("Informe um número binário: ")
    ' vamos ler o valor informado
    Dim valor As Integer = Integer.Parse(Console.ReadLine())

    ' vamos verificar se o valor está na faixa permitida
    If (valor < 100 Or valor > 999) Then
      Console.WriteLine(vbCrLf & "Valor fora da faixa permitida " & vbCrLf)
      Environment.Exit(0)
    End If

    ' vamos criar uma variável temporária para manter intacto o 
......

Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17

Imports System

Module Program
  Sub Main(args As String())
    ' vamos pedir ao usuário que informe um número inteiro
    Console.Write("Informe um número inteiro: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' vamos calcular o sucessor do número informado
    Dim sucessor As Integer = numero + 1

    ' vamos calcular o antecessor do número informado
    Dim antecessor As Integer = numero - 1
......

Informe o ano: 2024
O ano informado é bissexto.

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos solicitar que o usuário informe um ano
    Console.Write("Informe o ano: ")
    Dim ano As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar se o ano informado é bissexto
    If (((ano Mod 4 = 0) And (ano Mod 100 <> 0)) Or (ano Mod 400 = 0)) Then
......

Imports System

Module Program
  Sub Main(args As String())
    ' cria um array de inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5}

    ' exibe os valores do primeiro array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    ' cria um segundo array e copia os elementos
    ' do primeiro para o segundo
    Dim valores2() As Integer = {6, 7, 8, 9, 10, 15, 20}
......