Adjusting the ComboBox list contents automatically

I have a small program used as a Mate/Demate log for connectors at work. The list of all the connectors is quite big and varied so all i need is some additions to this coding (below) to shorten the drop down list to all then entries that match whats been typed in so far.
For example if i type in a 5 first then click the drop down arrow i would only like to see the entries starting with a 5, but then iff i add a 9 to the 5 making the box say 59 i would then like the drop down box to reduce its contents to the entries starting 59.
I have seen this done on may programs and web pages so i know it is possible i just cant find how to do it in the VB help files  :(


Here is an extract of some of the coding i have already done.


Private Sub Partbox_STATUS(enable As Boolean)
Select Case enable
Case False
    Partbox.Visible = False
    PartLabel.Visible = False
    Partbox.Enabled = False
    Partbox.Text = ""
    Portbox_STATUS (False)
Case True
    Dim name As String
    Dim clock As String
    Dim counter As Integer
    Dim endloop As Integer
    Dim check As Integer
   
    endloop = 0
    counter = 1
    Partbox.Clear
    Do
        counter = counter + 1
        part = Sheets(projectbox.Text).Range(rowCol(counter, 1))
        port = Sheets(projectbox.Text).Range(rowCol(counter, 2))
       
        If Len(Trim(port)) Then
            If Len(Trim(part)) Then
                Partbox.AddItem Trim(part)
            End If
        Else
            endloop = 1
        End If
    Loop Until endloop
   
    Sheets(projectbox.Text).Select
    Range("E2").Select
   
    Partbox.Visible = True
    PartLabel.Visible = True
    Partbox.Enabled = True
    Partbox.SetFocus
End Select
End Sub

Private Sub partbox_Change()
If Partbox.MatchFound Then
Portbox_STATUS (True)
End If
End Sub

Private Sub partbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 13, Is = 9
Partbox.Text = UCase(Partbox.Text)
If Partbox.MatchFound Then
    Portbox_STATUS (True)
    portbox.SetFocus
    Else
        found = -1
        For loopcount = 0 To Partbox.ListCount - 1
            If Trim(Partbox.List(loopcount)) = Trim(UCase(Partbox.Text)) Then
                found = loopcount
            End If
        Next loopcount
             
        If found >= 0 Then
            Partbox.ListIndex = found
            Portbox_STATUS (True)
        Else
            Partbox.Text = ""
            Portbox_STATUS (False)
        End If
    End If
End Select
End Sub

Private Sub partbox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Partbox.Text = ""
End Sub

Private Sub partbox_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Portbox_STATUS (False)
End Sub




I have looked at the MatchEntry properties options for the ComboBox and selecting anything other than MatchEntryNone make the program select the first match (if i hit 5 then it selects the first entry starting with a 5 and goes onto the next box).

Pls could anyone suggest anything??.


Thanks.