Informe um número de dois dígitos: -5
Número inválido

Informe um número de dois dígitos: 350
Número inválido

Informe um número de dois dígitos: 28
A soma dos dígitos é: 10

Informe um número de dois dígitos: 81
A soma dos dígitos é: 9

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos pedir para o usuário informar um inteiro
    ' positivo de 2 dígitos
    Console.Write("Informe um número de dois dígitos: ")
    Dim numero As Integer = Int32.Parse(Console.ReadLine())

    ' vamos validar o número
    If ((numero < 10) Or (numero > 99)) Then
      Console.WriteLine("Número inválido")
    Else
      ' vamos extrair o primeiro dígito
      Dim primeiro As Integer = numero \ 10
      ' agora vamos extrair o segundo dígito
      Dim segundo As Integer = numero - (10 * primeiro)
      ' vamos somar os dois dígitos
      Dim soma As Integer = primeiro + segundo
      ' e mostramos o resultado
      Console.WriteLine("A soma dos dígitos é: " & soma)
    End If

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "Gosto de VB.NET"

    ' vamos mostrar a frase original
    Console.WriteLine("A frase original é: " & frase)

    ' vamos inverter a string
    frase = StrReverse(frase)

    ' mostramos a frase invertida
    Console.WriteLine("A frase invertida é: " & frase)

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim numero As Integer = 0

Do Until numero > 10
  Console.WriteLine(numero)
  numero += 1
Loop

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim numero As Integer = 10

Do Until numero < 0
  Console.WriteLine(numero)
  numero -= 1
Loop

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim pode As Boolean = True
Dim valor As Integer = 1

Do Until pode = False
  Console.WriteLine(valor)
  valor += 1

  If valor > 20 Then
    pode = False
  End If
Loop

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' vamos obter a versão do .NET 
    Dim versao As String = Environment.Version.ToString()

    ' vamos mostrar o resultado
    Console.WriteLine("A versão do .NET é: " & versao)

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