Фамилию, имя и отчество из TextBox разнести в три Label - VB

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

Добрый день. Помогите решить задачу... На форуму нужно кинуть 1 текстовое поле и 3 объекта lable В текстовом поле можно писать тоолько русские, заглавные и сточные буквы После ввода в текстовое поле ФИО(фамилия имя очество) человека в произвольном регистре с пробелами и по нажатию клавиши ENTER из исходной строки, нужно отделить фамилию, имя и очество и вывести их в поля lable(в 1 lable фамилию, во 2-ю lable имя и в 3 очество) Я только сумел написать код для ввода в текствое поле ФИО...

Private Sub txtFIO_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 8, 32, 45, 192 To 255
    Case 13
        Call findFIO
    Case Else
        KeyAscii = 0
    End Select
End Sub

Прошу помочь...За раннее спасибо.

Решение задачи: «Фамилию, имя и отчество из TextBox разнести в три Label»

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

                            Sub findFIO()
    Dim i&, s$
    s = LTrim(txtFIO.Text)
    i = InStr(1, s, " ")
    If i=0 Then
        'ввели только фамилию
        lblF.Caption = RTrim(s)
        Exit Sub
    End If
    lblF.Caption = Left$(s, i-1) 'вот нашли фамилию
    s = LTrim(Mid$(s,i+1))
    i = InStr(1, s, " ")
    If i=0 Then
        'ввели только фамилию_имя
        lblI.Caption = RTrim(s)
        Exit Sub
    End If
    lblI.Caption = Left$(s, i-1) 'вот нашли имя
    lblO.Caption = Trim(Mid$(s,i+1)) 'а все остальное это отчество
End Sub
                        