Konversi desimal menjadi biner pada Visual Basic 6.0

Di bawah ini contoh script pada visual basic 6.0 dalam mengubah angka desimal menjadi biner:

Public function binary(number as long) as string
      If abs(number) > 1 then
           Binary = Binary(number \ 2) cstr(abs(number mod 2))
      Else
           Binary = Cstr(number)
      End if
End Function

"Selamat mencoba ...."