Private Sub Command1_Click()
 
SuchText = Text1
 
Text2 = ""
 
For Eintrag = 0 to List1.ListCount - 1 
        If List1.List(Text1) =  Suchtext Then
                Text2 =  List1.ListCount  - Eintrag + 1
                 Exit For ' Damit Die andren nicht auch extra durchsucht werden
        End If
Next
 
If Text2 = "" Then Text2 = "Nicht Gefunden!"
 
End Sub