Decimal to binary error

[baka]

Function DecToBin$(Value&)
    While Value > 0
        DecToBin = Value Mod 2 & DecToBin
        Value = Value \ 2
    Wend
End Function