Informe um número binário: 100110
O número informado é binário.

----------------------------------------------------------------------
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 solicitar um número binário
    Console.Write("Informe um número binário: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' agora usamos um laço while para quebrar o número em
    ' seus dígitos individuais e verificar se cada um é diferente
    ' de 1 e 0. Se for, o número não é binário
    While (numero > 0)
      Dim temp As Integer = numero Mod 10

      If (temp <> 0 And temp <> 1) Then
        Console.WriteLine("O número informado não é binário.")
        Exit While
      End If

      numero = numero / 10
      If (numero = 0) Then
        Console.WriteLine("O número informado é binário.")
      End If
    End While

    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 muito de VB.NET e você?"
    Dim letra As Char = "o"
    Dim quant As Integer = 0
    Dim pos As Integer = -1, pos_ant As Integer = -1
    Dim cont As Integer = 0

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

    While cont < frase.Length
      pos = frase.IndexOf(letra, cont)
      If pos <> pos_ant And pos <> -1 Then
        Console.WriteLine("""" & letra &
          """ encontrada na posição " & pos)
        quant += 1
      End If
      cont += 1
      pos_ant = pos
    End While

    ' mostra a quantidade de ocorrências da letra "o"
    Console.WriteLine("Encontrei " & quant & " ocorrências da " _
       & "letra " & letra)

    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())
    Dim frase As String = "Gosto muito de VB.NET"
    ' vamos mostrar a frase original
    Console.WriteLine("Frase original: " & frase)

    ' vamos obter a substring "VB.NET"
    Dim substring As String = frase.Substring(15, 6)

    ' exibe o resultado
    Console.WriteLine("A substring é: " & substring)

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