Imports System

Public Module Module1

    Public Sub Main()

        dim MyNumber as String

        dim total as decimal = 0

        console.WriteLine("Enter a 8 digital binary number eg: 1010.0011")

        MyNumber = console.readline()

        if MyNumber(0) = "1" then

            total = total + 8

        end if

        if MyNumber(1) = "1" then

            total = total + 4

        end if

        if MyNumber(2) = "1" then

            total = total + 2

        end if

        if MyNumber(3) = "1" then

            total = total + 1

        end if

        if MyNumber(4) = "1" then

            total = total + 0.5

        end if

        if MyNumber(5) = "1" then

            total = total + 0.25

        end if

        if MyNumber(6) = "1" then

            total = total + 0.125

        end if

        if MyNumber(7) = "1" then

            total = total + 0.0625

        end if

        Console.WriteLine("The final value of {0} is {1}", MyNumber , total)

        console.readline()

​

    End Sub

End Module