a VBA code to convert an arbitrary positive decimal fractional number (0 < number < 1) to equivalent binary number.

Write a VBA code to convert an arbitrary positive decimal fractional number (0 < number < 1) to equivalent binary number. The code should acquire the decimal fractional number in the format “0.xxxx” from input box, then return the equivalent binary number in a message box. Keep max 10 digits after decimal point in case it ends up with endless conversion. You can use below conversion as benchmark to verify and debug your code:
(0.6)2 = (0.1001100110)10.