Option Explicit
Private Declare Function Sendmessagebystring Lib "user32" Alias "SendMessageA" ( _
  ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal sparam$) _
  _ As Long
Const LB_FINDSTRING = &H18F
Private Sub Combo1_Change()
' Textfeld erstellen für die Suchzeichen eingabe (Text1.Text)
Dim Result& as Long, wParam& as Long, s as String, x as Boolean
wParam& = -1 'Ab welchem Listeneintrag mit der Suche begonnen werden soll
s = Combo1.Text 'Übernahme des Suchzeichens das gesucht werden soll
x = False
Namensliste.clear 'Da immer was neues drinne stehen soll wird die Liste vorher 
' geleert
Do while not x = True
Result& = Sendmessagebystring(Combo1.hWnd, LB_FINDSTRING, wParam&, s)
' Result& enthält dann die Nummer des ersten Eintrags der in der Liste vorkommt
Namensliste.Additem = Combo1.List(Result&) 'ausgabe in eine Textbox
wParam& = Result&
if Result& = 0 then
x = True
end if
loop
end sub