Como testar se um número informado pelo usuário é binário usando VB.NET - Exercícios Resolvidos de VB.NET

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

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