Считать зашифрованную строку (из определенной ячейки на листе) и произвести ее расшифровку - VBA

Формулировка задачи:

Нужно написать макрос, который считывает зашифрованную строку (из определенной ячейки на листе) и производит ее расшифровку. Символы в строке зашифрованы по принципу: первая позиция – зашифрованный символ; второй – количество позиций. В выводе ячейки должны разукрашиваться по принципу – 1-ая ячейка зеленая, 2-ая - желтая, 3-я – песочного цвета и т.д. по кругу. Пример прикрепил

Решение задачи: «Считать зашифрованную строку (из определенной ячейки на листе) и произвести ее расшифровку»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
Dim i&
  Cells.FormatConditions.Delete
  Range("B2").Select
  With Range("B2:B99")
    .Formula = "=IFERROR(REPT(MID($B$1,ROW()*2-3,1),MID($B$1,ROW()*2-2,1)),"""")"
    For i = 0 To 2
      With .FormatConditions.Add(Type:=xlExpression, Formula1:= _
          "=(ОСТАТ(СТРОКА();3)=" & i & ")*ДЛСТР(B2)")
        .Interior.Color = Array(65535, 49407, 5296274)(i)
        .StopIfTrue = True
      End With
    Next
  End With
End Sub
                        