Write a VBA code to convert an arbitrary binary INTEGER number to equivalent decimal number. Specific requirements: 1. Use InputBox function to request the input for an arbitrary binary number; 2. Convert the binary number to equivalent decimal integer number; 3. Return the decimal number in a message box.

Below functions may be useful in your VBA code if you input binary number as string: Cstr( ): can convert a number in ( ) to a string Len( ): count the length of the string in ( ) Val( ): can convert a string number in ( ) to numerical number Mid(xxx,x,x): can pick up one or more characters from the string variable in ( ) starting from the left end of the string.