Public Class Application
	Public Shared Sub Main()
		
		Dim Answer As Integer = 0
		Dim Column As Integer = 8
		
		While Column >= 1 
			Console.WriteLine("Enter bit value: ")
			Dim Bit As Integer = Console.ReadLine()
			
			Answer = Answer + (Column * Bit )
			
			Column = Column /2
		End While
		
		Console.WriteLine("Decimal value is: ")
		Console.WriteLine(Answer)
		
	End Sub
End Class