Imports System
 
Public Class Test
	Public Shared Sub Main()
		Console.WriteLine(BinaryToDecimal("1000"))
	    Console.WriteLine(BinaryToDecimal("1111"))
	    Console.WriteLine(BinaryToDecimal("0011011"))
	    Console.WriteLine(BinaryToDecimal("1001011001"))
	End Sub
 
        Public Shared Function BinaryToDecimal(ByVal Binary As String) As Integer
        Dim ReturnValue As Integer = 0
        Dim x As Integer = 1
        For i As Integer = Binary.Length - 1 To 0 Step -1
            If Binary.Chars(i) = "1"c Then
                ReturnValue += x
            End If
            x += x
        Next
        Return ReturnValue
    End Function
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlDb25zb2xlLldyaXRlTGluZShCaW5hcnlUb0RlY2ltYWwoIjEwMDAiKSkKCSAgICBDb25zb2xlLldyaXRlTGluZShCaW5hcnlUb0RlY2ltYWwoIjExMTEiKSkKCSAgICBDb25zb2xlLldyaXRlTGluZShCaW5hcnlUb0RlY2ltYWwoIjAwMTEwMTEiKSkKCSAgICBDb25zb2xlLldyaXRlTGluZShCaW5hcnlUb0RlY2ltYWwoIjEwMDEwMTEwMDEiKSkKCUVuZCBTdWIKICAgICAgICAKICAgICAgICBQdWJsaWMgU2hhcmVkIEZ1bmN0aW9uIEJpbmFyeVRvRGVjaW1hbChCeVZhbCBCaW5hcnkgQXMgU3RyaW5nKSBBcyBJbnRlZ2VyCiAgICAgICAgRGltIFJldHVyblZhbHVlIEFzIEludGVnZXIgPSAwCiAgICAgICAgRGltIHggQXMgSW50ZWdlciA9IDEKICAgICAgICBGb3IgaSBBcyBJbnRlZ2VyID0gQmluYXJ5Lkxlbmd0aCAtIDEgVG8gMCBTdGVwIC0xCiAgICAgICAgICAgIElmIEJpbmFyeS5DaGFycyhpKSA9ICIxImMgVGhlbgogICAgICAgICAgICAgICAgUmV0dXJuVmFsdWUgKz0geAogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgeCArPSB4CiAgICAgICAgTmV4dAogICAgICAgIFJldHVybiBSZXR1cm5WYWx1ZQogICAgRW5kIEZ1bmN0aW9uCkVuZCBDbGFzcw==