VB6.0 中带小数的十进制数怎么转换为二进制

VB6.0 中带小数的十进制数如何转换为二进制
各位大虾，本人刚接触VB6.0 ，不知道带小数的十进制数如何转换为二进制，请提供代码以代学习，谢谢！
[解决办法]
手上没有VB，用C#写一个，尽量贴近VB语法。

double d = 123.456;
string bin = "";
int d1 = (int)d;
while (d1 > 0)
{
    bin = (d1 % 2 == 1 ? "1" : "0") + bin;
    d1 = d1 / 2;
}
double d2 = d - (int)d;
bin = bin + ".";
double x = 0.5;
for (int i = 0; i < 10; i++)
{
    bin = bin + (d2 >= x ? "1" : "0");
    if (d2 >= x)
        d2 = d2 - x;
    x = x / 2.0;
}
Console.WriteLine(bin);