How to search data from text to show result in combo

See more:

VB6

Oracle

Private Sub Combo14_LostFocus()
Dim x() As String
x = Split(Text2.Text, " ")
    If x(0) <> Empty Then
        Combo14.Text = Text2.Text
    If UBound(x) Then
        Combo14.Text = x(0)
    Else
    If UBound(x) Then
        Combo14.Text = x(1)
    Else
    If UBound(x) Then
        Combo14.Text = x(2)
    End If
    End If
    End If
    End If
End Sub

Private Sub Text2_LostFocus()
If Text2.Text = Empty Then Exit Sub
Dim STR() As String
STR = Split(Text2.Text, " ")
If STR(0) <> Empty Then
Combo14.Text = STR(0)
End If
End Sub

Is this code suitable for the operation like:
Splitting names from text boxes(firstname-text2,middlename-text3,lastname-text4)to populate list into combo box(combo14) and combo box should show only those records related to the name entered into either of text boxes not other than them.In one way I am going to use text box as a search box.
Same code as text2,I have written for text3 and text 4
While running this code combo box shows all the records(full-names). Not the specific text related full-names.
Please help me regarding this point.
Whether my point is not understood by anybody??????
please try to understand