Dim nText As String, zText As String   'sText ist nun nText wegen Name
Dim vn As Integer, vz As Integer

Private Sub LblBildMenü_Click(Index As Integer)
 If Index = 1 Then
  nText = Trim(LblInfo(0).Caption)
  For vn = 0 To ListBesten3.ListCount - 1
   n = Split(ListBesten3.List(vn), vbTab)
   If Trim(n(1)) = nText Then ListBesten3.List(vn) = lbgt & vbTab & LblInfo( _
     0).Caption: LblNameTemp.Caption = "1"
  Next
  If LblNameTemp.Caption = "0" Then
   If ListBesten3.ListCount < 10 Then ListBesten3.List(ListBesten3.ListCount) = _
     lbgt & vbTab & LblInfo(0).Caption
   If ListBesten3.ListCount = 10 Then
    zText = Trim(LblBGTemp.Caption)
    For vz = 0 To ListBesten3.ListCount - 1
     z = Split(ListBesten3.List(vz), vbTab)
     If Trim(z(0)) < zText Then ListBesten3.List(0) = lbgt & vbTab & LblInfo( _
       0).Caption    '<<<< Die Zeile da passiert nichts und ich weiss nicht warum
    Next
   End If
  End If
 End If
End Sub