Из строки фамилия имя отчество дата рождения в виде день. месяц. год получить: фамилия имя отчество возраст

Function aboba(s As String) As String
Dim фамилия, имя, отчество, дата_рождения As String
Dim возраст As Integer
 
n = InStr(s, " ")
фамилия = Left(s, n)
s = Right(s, Len(s) - Len(фамилия))
n = InStr(s, " ")
имя = Left(s, n)
s = Right(s, Len(s) - Len(имя))
n = InStr(s, " ")
отчество = Left(s, n)
s = Right(s, Len(s) - Len(отчество))
n = InStr(s, " ")
дата_рождения = Left(s, n)
If Not IsDate(дата_рождения) Then
    aboba = "введите дату в формате дд.мм.гггг"
End If
возраст = DateDiff("yyyy", дата_рождения, Now)
If Date < DateSerial(Year(Now), Month(дата_рождения), Day(дата_рождения)) Then
    возраст = возраст - 1
End If
aboba = имя + " " + отчество + ", возраст " + CStr(возраст)
End Function

Sub main220120()
Debug.Print aboba("Власов Иван Иванович 01/01/1980")
Debug.Print aboba("Власова Анна Петровна  01/02/1980")
''Иван Иванович, возраст 42
''Анна Петровна, возраст 41
 
End Sub
Function aboba(stroka As String) As String
Dim фамилия, имя, отчество As String
Dim дата_рождения As Date
Dim возраст As Integer
Dim n, s
s = stroka
n = InStr(s, " ")
фамилия = Trim(Mid(s, 1, n - 1))
'''''''''''''''
s = Trim(Mid(s, n))
n = InStr(s, " ")
имя = Mid(s, 1, n - 1)
''''''''''''''''
s = Trim(Mid(s, n))
n = InStr(s, " ")
отчество = Mid(s, 1, n - 1)
''''''''''''''''''''
s = Trim(Mid(s, n))
n = InStr(s, " ")
дата_рождения = CDate(s)
If Not IsDate(дата_рождения) Then
    aboba = "введите дату в формате дд.мм.гггг"
End If
'''''''''''''''''''
возраст = DateDiff("yyyy", дата_рождения, Now)
If Date < DateSerial(Year(Now), Month(дата_рождения), Day(дата_рождения)) Then
    возраст = возраст - 1
End If
aboba = имя + " " + отчество + ", возраст " + CStr(возраст)
End Function