500

Option Explicit

Private LastComboKeyAscii As Integer

Private Sub AutoFillCombo(Combo As ComboBox)
  Dim init_text As String
  Dim j As Integer
  Dim SC As Integer

  init_text = Combo.Text
  If init_text = "" Then Exit Sub
  SC = Combo.ListCount
  If SC = 0 Then Exit Sub
  For j = 0 To SC - 1
    If Left(Combo.List(j), Len(init_text)) = init_text Then
      Combo.Text = Combo.List(j)
      Combo.SelStart = Len(init_text)
      Combo.SelLength = Len(Combo.Text) - Len(init_text)
      Exit Sub
    End If
  Next
End Sub

Private Sub Combo1_Change()
  If Not (LastComboKeyAscii = 8) And Not (LastComboKeyAscii = 46) And Not (LastComboKeyAscii = 0) Then AutoFillCombo Combo1
  LastComboKeyAscii = 0
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  LastComboKeyAscii = KeyCode
End Sub