Разделение массива на секции - VBA

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

существует массив 10011100001101010000010001010110001110011001001001010001101101111111011000001001 нужно разделить его так чтобы выглядел он примерно так 10-01-110-0001-10-10-10-00001-0001-01-01-10-001-110-011-001-001-001-01-0001-10-110-11111110-110-00001-001 Т.е чтобы в каждой серии присутствовали оба знака. Объясните последовательность действий.

Решение задачи: «Разделение массива на секции»

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

                            Sub asd()
Const c$ = "10011100001101010000010001010110001110011001001001010001101101111111011000001001"
Dim s$, i&, j&
For i = 1 To Len(c)
  For j = i + 1 To Len(c)
    If Mid(c, i, 1) <> Mid(c, j, 1) Then
      s = s & "-" & Mid(c, i, j - i + 1)
      i = j
      Exit For
    End If
  Next
Next
s = Mid(s, 2)
End Sub
                        