VBA

[Дашкаа]

помогите пожалуйста в решении задач!

1. Создать процедуру перевода натуральных десятичных чисел в двоичную систему счисления.
2. Население некоторой страны каждый год увеличивается на Р%. Напишите процедуру, которая определяет, за какой срок население страны увеличится не менее чем вдвое. Величина Р должна вводиться пользователем.
3. Вывести в ячейки Excel символы с кодами от 101 (восьмеричное) до 136 (восьмеричное)

[doober]

А поиск по форуму не рулит
ЗДЕСЬ

Function Dec_To_Bin(mm As Long) As String
  Dim rez As String, Md As Long
    rez = ""
 Do While mm >= 2
      Md = mm Mod 2
      mm = mm \ 2
      rez = Md & rez
     Loop
 Dec_To_Bin = mm & rez
End Function