Проверка части текста на подчеркивание (VBA)

[Max108]

Доброго.
внутри ячейки
есть текст с подчеркиванием (ячейка B4 на картинке)
(не вся ячейка с подчеркиванием, а часть текста)
нужно чтобы формула говорила ИСТИНА или ЛОЖЬ

нашел VBA код для ячейки. Может подскажите, как его переделать для поиска части текста (можно в первых 5х символах)

Function ЕПОДЧЕРКН(ЯЧЕЙКА As Range) As Boolean
   ЕПОДЧЕРКН = False
 
   Select Case ЯЧЕЙКА.Font.Underline
      Case xlUnderlineStyleSingle
         ЕПОДЧЕРКН = True
      Case xlUnderlineStyleDouble
         ЕПОДЧЕРКН = True
   End Select
End Function

[Aleksandr H.]

Function ЕПОДЧЕРКН(ЯЧЕЙКА As Range) As Boolean
    Dim i As Long
    ЕПОДЧЕРКН = False
    For i = 1 To Len(ЯЧЕЙКА)
        Select Case ЯЧЕЙКА.Characters(Start:=i, Length:=1).Font.Underline
            Case xlUnderlineStyleSingle
            ЕПОДЧЕРКН = True
            Case xlUnderlineStyleDouble
            ЕПОДЧЕРКН = True
        End Select
    Next i
End Function

[Max108]

Aleksandr H.,

Сообщение от Aleksandr H.

Function ЕПОДЧЕРКН(ЯЧЕЙКА As Range) As Boolean
    Dim i As Long
    ЕПОДЧЕРКН = False
    For i = 1 To Len(ЯЧЕЙКА)
        Select Case ЯЧЕЙКА.Characters(Start:=i, Length:=1).Font.Underline
            Case xlUnderlineStyleSingle
            ЕПОДЧЕРКН = True
            Case xlUnderlineStyleDouble
            ЕПОДЧЕРКН = True
        End Select
    Next i
End Function

Работает. Спасибо, огромное