Dim i As Integer, j As Integer, Letter As String

 

Private Sub Combo1_Change()

   Letter = Mid$(Combo1.Text, 1, j)

   For i = 0 To Combo1.ListCount - 1

      If Letter = Mid$(Combo1.List(i), 1, j) Then Combo1.Text = Combo1.List(i): Exit For

   Next i

   Combo1.SelStart = j

End Sub

 

Private Sub Combo1_Click()

   Letter = ""

   j = 0

End Sub

 

Private Sub Combo1_KeyPress(KeyAscii As Integer)

   Select Case KeyAscii

      Case 8

         j = j - 1

         If j < 0 Then j = 0

         Exit Sub

      Case Else

         j = j + 1

         Exit Sub

   End Select

End Sub