Excel - Burqueda de cadena de texto de color azul en rango

Option Explicit

Sub test()

Dim s$, rng As Range, n&, i&

Dim bIn As Boolean

Set rng = Range("A1")

n = VBA.Len(rng.Text)

bIn = False

s = ""

For i = 1 To n

    If rng.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 Then

       bIn = True

       s = s & rng.Characters(Start:=i, Length:=1).Text

    Else

         If bIn Then

            MsgBox s

            s = ""

         End If

         bIn = False

    End If

Next

End Sub