' Damit du eine Suchfunktion wie unter Punkt1 bekommst schreibst du einfach 
' folgenden Code in einen Text_Change Event
 
    Private Sub Text1_Change()
        Call ListBoxSearch(List1, Text1.Text)
    End Sub
 
 
' Und für Punkt 2 alles in einen Command_Click Event
 
    Private Sub Command1_Click()
        Call ListBoxSearch(List1, Text1.Text)
    End Sub
 
 
Public Function ListBoxSearch(objListBox As listbox, strSearch As String) As _
  Long
 
    For i = 0 To objListBox.ListCount - 1					' jeden eintrag durchsuchen
        If UCase(Left(objListBox.List(i), Len(strSearch))) = UCase(strSearch) _
          Then	' Wenn der Eintrag der ListBox in der Länge des gesuchten wortes 
        ' großgeschrieben = dem gesuchten Wort großgeschrieben
            objListBox.ListIndex = i						' Das Item markieren
            ListBoxSearch = i							' Rückgabewert der Funktion
            Exit For								' Um Zeit zu sparen For schleife vorzeitig abbrechen
        End If
    Next i
 
End Function