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

Informe um número binário: 1100
A representação decimal do valor binário 1100 é 12

----------------------------------------------------------------------
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 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)))
      ' reduz o expoente em 1
      expoente = expoente - 1
    Next

    ' agora mostramos o resultado
    Console.WriteLine("A representação decimal do valor binário " _
      & binario & " é " & n_decimal)

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

End Module