Escrevendo uma função que converte valores binários em decimal

'Este exemplo mostra como escrever um função que
'converte um valor binário em decimal

Module Module1
  Sub Main()
    Dim binario As String = "10000000"
    Dim dec As Integer = BinToDec(binario)

    Console.WriteLine(binario & " em decimal é " & dec)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub

  Public Function BinToDec(ByVal bin As String) As Long
    Dim n As Long

    For s As Integer = 1 To Len(bin) Step 1
      n = n + (Mid(bin, Len(bin) - s + 1, 1) * (2 ^ (s - 1)))
    Next

    Return n
  End Function
End Module