Como converter de binário para decimal em VB.NET usando o laço for - Desafio de Programação Resolvido em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler o número binário (como uma String)
    Console.Write("Informe um número binário: ")
    Dim binario As String = Console.ReadLine()
    Dim n_decimal As Integer = 0 ' guarda a representação Decimal

    ' vamos percorrer todos os dígitos do número binário começando do início
    Dim expoente As Integer = binario.Length - 1
    For i = 0 To binario.Length - 1
      ' converte o caractere atual para inteiro
      Dim temp As Integer = CInt(Char.GetNumericValue(binario(i)))
      n_decimal = n_decimal + (temp * CInt(Math.Pow(2, expoente)))