извлечь Заглавные буквы из сплошного текста

[SAUUNSAPR]

Добрый день, уважаемые форумчане! Помогите решить вопрос. Как извлечь все Начальные (ПРОПНАЧ) буквы из текста в ячейке, если к примеру весь текс записан одним словом. Например: ИвановПетрФедорович (пользователь занес это все в одну ячейку), вопрос как сделать так, чтобы в разных ячейках был вывод отдельно Иванов, в другой Петр, в третьей Федорович. Когда введено с пробелами, то все легко разделить, а если слитно, или двойная фамилия Петров-Водкин, то все ступор. СПАСИБО.

[Aleksandr H.]

Public Function Прописные(смесь As String)
    Dim i As Long
    For i = 1 To Len(смесь)
        Select Case Asc(Mid(смесь, i, 1))
            Case 192 To 223
            Прописные = Прописные & Mid(смесь, i, 1)
        End Select
    Next
End Function

[svsh2016]

добрый день,вариант для слитного написания в столбцах C E G для i равного 0 1 2 соответственно.

Function vvvv$(t$, i%)
 With CreateObject("VBScript.RegExp"): .Pattern = "[А-ЯЁ][а-яё]+": .Global = True
    vvvv = .Execute(t)(i)
 End With
End Function

[SAUUNSAPR]

Огромное всем спасибо, с утра не мог решить задачу!!!!