Aunque ¿para que reinventar la rueda si esta el internet?
http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!55211/lngWid!-10/anyname.htm
http://forums.devshed.com/archive/t-112886 http://www.sonofsofaman.com/hobbies/code/dectobin.asp
Por cierto, PHP si tiene esa función, mmmmm.