Вы повторно задали этот вопрос. Он не нашел ответа,
Не могли бы Вы привести пример числа и как оно должно выглядеть после преобразования?
Или предоставить методичку, как это делать?
Или привести ссылку на методику?

Вот пример похожей задачи
При помощи датчика случайных чисел получить и вывести в столбец рабочего листа Excel N (N вводится с клавиатуры) целых чисел типа Long. Выделить цветом те ячейки, в которых находятся числа, в двоичном представлении которых имеются подцепочки, содержащие L подряд идущих цифр 0. При этом L кратно 4 и более 7. Числа хранятся в дополнительном коде. В соседний столбец вывести числа в двоичном представлении.
Решение

Sub Вариант0Задача22()
Dim a As Long, N As Long, bin As String, i As Integer, k As Integer
Dim Sum As Integer
Sheets("Лист22").Select: Cells.Clear
'Отформатировать столбец b, как текстовый
Columns("b").NumberFormat = "@"
Randomize Timer
N = Val(InputBox("Введите число элементов N"))
For i = 1 To N 'Цикл по всем элементам
'Получить целое случайное число в диапазоне[-1000000; 1000000]
a = Int(Rnd * 2000000) - 1000000
Cells(i, 1) = a
'Вызвать функцию, которая переводит в двоичный дополнительный
'код число a
bin = ПереводВ2Long(a)
Cells(i, 2) = bin 'Выводим во второй столбец число в двоичном виде
If ЧислоУдовлетворяетЛиУсловиюЗадачи(bin) Then
'Закрасить ячейку цветом, смешав 255 единиц красного цвета,
Cells(i, 1).Interior.Color = &HFF1199 '17 - зеленого и 153 - голубого
End If
Next i
End Sub
'Функция отвечает на вопрос: удовлетворяет ли строка bin условиям
'задачи?
Function ЧислоУдовлетворяетЛиУсловиюЗадачи(ByVal bin As String)_
As Boolean
Dim k As Integer, L As Integer
ЧислоУдовлетворяетЛиУсловиюЗадачи = True
bin = bin + " " 'В строку bin добавляем пробел справа
For k = 1 To 34 'Обходим по всем символам строки bin
If Mid(bin, k, 1) = "0" Then 'Вошли в цепочку из нулей
L = 1 'Число подряд идущих символов "0"
'Идем до конца этой цепочки и подсчитываем, сколько
'в ней символов "0"
k = k + 1
While Mid(bin, k, 1) = "0" 'Цикл пока k-тый символ = 0
k = k + 1: L = L + 1 'Переходим к следующему биту и увеличиваем L
Wend
'Вышли из цепочки, содержащей символы "0". Проверяем, длина
'цепочки удовлетворяет ли условию задачи. Если "ДА" - выходим из
'функции
If L > 7 And (L Mod 4) = 0 Then Exit Function
End If
Next k
'Если программа дошла до этого оператора, то цепочек
'удовлетворяющих условию задачи в этом числе нет. Имени функции
'присваиваем значение false
ЧислоУдовлетворяетЛиУсловиюЗадачи = False
End Function
'Функция, которая переводит число типа Long в двоичный формат
Function ПереводВ2Long(ByVal a As Long) As String
Dim b As Long, i As Integer, S As String
S = "" 'Здесь будем накапливать по одному биту двоичный код числа а
'В числе B - первый бит =1, а остальные (31 бит)равны 0
b = &H80000000 'для определения знака числа (первый бит)
If (a And b) = 0 Then S = S + "0" Else S = S + "1"
b = &H40000000 'второй бит =1 остальные 0
For i = 2 To 32 'Обходим по всем числовым битам
'В числе b i-тый бит = 1 остальные = 0
If (a And b) = 0 Then S = S + "0" Else S = S + "1"
b = b / 2 'Сдвиг 1 на один бит вправо
Next i
ПереводВ2Long = S
End Function

Вместо выделенного цикла с использованием громоздкого Case можно использовать формулу: