Поиск словосочетания в строке - VB

Формулировка задачи:

здравствуйте возможно я не корректно скажу но очень нужна помощь с VB, такое задание список учеников(фамилия, имя, год рожения),данные для различных учеников разделяютя ";" различные сведения о ученике пробелами, нужно составить список с определенным именем и годом рождения( эти данные вводятся пользователем)

Решение задачи: «Поиск словосочетания в строке»

textual
                            Листинг программы 
                        

                            Private Sub Комманда1_Click()
Dim S As String
S = InputBox("Предложение?", "Ввод", "Цуьнан;Дог;1980 новичек кибер форума")
MsgBox "Фамилия:  " & Split(S, ";")(0) & vbCrLf & "Имя:  " & Split(S, ";")(1) & vbCrLf & "г.р.:  " & Split(Split(S, ";")(2), " ")(0), 64, "Вот!"
End Sub
                        