Разбиение слитных слов на пробелы

[Clockgen]

Подскажите как можно сделать так чтобы запись ИвановЕвгенийПетрович, приняла такую форму: Иванов Евгений Петрович,разумеется таких ФИО очень много,и изначальная форма представления может быть и такой: ИвановЕвгений Петрович и такой: Иванов ЕвгенийПетрович, а так же правильной формы: Иванов Евгений Петрович.

Может можно как то макросом сделать?Прошу помогите,серьезное дело горит((

[Serge_Bliznykov]

разделять по Прописной букве? макросом это можно сделать легко... или пользовательскую функцию написать можно...

[doober]

Во вложении пользовательская функция FIO,и пример использования.

[Clockgen]

Огромное спасибо,выручили!

[Hugo121]

Можно попроще:

Function FIO(ssl As String)
    For i = 1 To Len(ssl)
        If UCase(Mid(ssl, i, 1)) = Mid(ssl, i, 1) Then
            FIO = FIO & " " & Mid(ssl, i, 1)
        Else
            FIO = FIO & Mid(ssl, i, 1)
        End If
    Next
    FIO = Application.Trim(FIO)
End Function