Option Explicit

Sub x(s$)
On Error Resume Next
Dim a, r$: a = Split(Replace(Replace(s, "  ", " "), "  ", " "))
r = a( 0 ) & " "
If Asc(Left(a( 1 ),  1 )) = Asc(UCase(Left(a( 1 ),  1 ))) Then r = r & Left(a( 1 ),  1 ) & "."
If Asc(Left(a( 2 ),  1 )) = Asc(UCase(Left(a( 2 ),  1 ))) Then r = r & Left(a( 2 ),  1 ) & "."
Debug.Print s, r
End Sub

Sub test()
x ""
x "Иванов Иван Иваныч"
x "Иванов   Иван   Иваныч"
x "Иванов Бюль-бюль оглы"
x "Иванов Саид кызы"
x "Иванов Саид-кызы"
x "Иванов Саид Кызы"
End Sub