Для перевода натурального числа из десятичной системы счисления в двоичную без использования массивов можно воспользоваться следующим кодом на VBA:

Sub DecimalToBinary()
Dim decimalNum As Integer
Dim binaryNum As String
Dim remainder As Integer
decimalNum = InputBox("Введите натуральное число:")
If decimalNum < 0 Then
MsgBox "Введите положительное число"
Exit Sub
End If
If decimalNum = 0 Then
binaryNum = "0"
Else
Do While decimalNum > 0
remainder = decimalNum Mod 2
binaryNum = CStr(remainder) & binaryNum
decimalNum = decimalNum \ 2
Loop
End If
MsgBox "Число в двоичной системе счисления: " & binaryNum
End Sub

Этот код запрашивает у пользователя натуральное число, а затем переводит его в двоичную систему счисления и выводит результат на экран с помощью сообщения MsgBox.