Function AutoVoll(cmb As Object)
' Autovervollständigung...
  Static sTextOld As String
  Dim i As Integer
  Dim sPos As Integer
 
  With cmb
    If sTextOld <> .text Then
      For i = 0 To .ListCount - 1
        If .List(i) Like .text + "*" Then
          sPos = .SelStart
          sTextOld = .text
          .text = .List(i)
          .SelStart = sPos
          .SelLength = Len(.text) - sPos + 1
          Exit For
        End If
      Next i
    End If
  End With
End Function

Wer aufhört sich zu verbessern, hört auf gut zu sein.