Informe o primeiro lado do triângulo: 30
Informe o segundo lado do triângulo: 40
Informe o terceiro lado do triângulo: 60
O triângulo é escaleno

----------------------------------------------------------------------
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())
    ' variáveis usadas na resolução do problema
    Dim lado_a, lado_b, lado_c As Integer

    ' vamos ler o primeiro lado do triângulo
    Console.Write("Informe o primeiro lado do triângulo: ")
    lado_a = Int32.Parse(Console.ReadLine())

    ' vamos ler o segundo lado do triângulo
    Console.Write("Informe o segundo lado do triângulo: ")
    lado_b = Int32.Parse(Console.ReadLine())

    ' vamos ler o terceiro lado do triângulo
    Console.Write("Informe o terceiro lado do triângulo: ")
    lado_c = Int32.Parse(Console.ReadLine())

    ' os lados informados formam um triângulo?
    If (lado_a < (lado_b + lado_c)) And (lado_b < (lado_a + lado_c)) _
      And (lado_c < (lado_a + lado_b)) Then
      ' é um triângulo equilátero (todos os lados iguais)?
      If (lado_a = lado_b) And (lado_b = lado_c) Then
        Console.WriteLine("O triângulo é equilátero")
      Else
        ' é isósceles (dois lados iguais e um diferente)?
        If (lado_a = lado_b) Or (lado_a = lado_c) Or (lado_c = lado_b) Then
          Console.WriteLine("O triângulo é isósceles")
        Else
          ' é escaleno
          Console.WriteLine("O triângulo é escaleno")
        End If
      End If
    Else
      Console.WriteLine("Os lados informados não formam um triângulo.")
    End If

    Console.WriteLine(vbCrLf & 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 var1 As String ' ainda não foi inicializada...é null
    Dim var2 As String = Nothing ' é null
    Dim var3 As String = "" ' está vazia

    If String.IsNullOrEmpty(var1) Then
      Console.WriteLine("A variável var1 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var2) Then
      Console.WriteLine("A variável var2 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var3) Then
      Console.WriteLine("A variável var3 ainda é null ou vazia")
    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())
    ' 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

----------------------------------------------------------------------
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())
    ' declara uma variável do tipo String
    Dim frase As String

    ' inicializa a string usando New
    frase = New String("Você já conhece o site Arquivo de Códigos?")
    ' vamos mostrar o resultado
    Console.WriteLine("A frase é: " & frase)

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