Private Sub CommandButton1_Click()
Dim val As String
val = Cells(5, "G").Value
Dim fast As Boolean
fast = True
Dim last As Boolean
last = False
Dim values As String
values = ""
Dim lent As Integer
lent = Len(val)
Dim result As String
result = ""
For i = 1 To lent
If Cells(5, "G").Characters(Start:=i, Length:=1).Font.Color = vbRed Then
If fast Then
values = "<span style='color:#dd0062;'>" & "" & Mid(val, i, 1)
fast = False
last = True
Else
last = True
values = values & "" & Mid(val, i, 1)
End If