Question

Write a VBA code to convert an arbitrary binary integer number to its equivalent decimal number. Specific requirements: Use InputBox function to acquire the input for an arbitrary binary integer number; Convert the binary integer to its equivalent decimal number; Return the decimal number in a message box. Submit your (VBA code) Excel screen shoot.

Below functions may be useful in your VBA code:

Val( ): can convert a string-type number in ( ) to its numeric value;

Len( ): can count the length or how many characters in the string in ( );

Mid( , , ) : can select and pick up certain characters from a string.

Answer 1

Private Sub CommandButton1_Click()
'Define Variable to get the input binary
Dim Binary As String
'Read input binary number and assign to variable
Binary = TextBox1.Value
Dim index As Integer
'Loop thru all the digits of binary string and compute decimal
For index = 0 To Len(Binary) - 1
DecimalValue = CDec(DecimalValue) + Val(Mid(Binary, _
Len(Binary) - index, 1)) * 2 ^ index
Next
'Display in message box
MsgBox DecimalValue
End Sub