Dim v as Variant
Dim lbgt as String
 
Private Sub LblBGTemp_Change()
 lbgt = Trim(LblBGTemp.Caption)
End Sub
 
Private Sub LblBildMenü_Click(Index As Integer)
 if Index = 1 Then
  If ListBesten3(smb).ListCount = 5 Then
   v = Split(ListBesten3(smb).List(0), vbTab)
   If lbgt > v(0) Then ListBesten3(smb).List(0) = LblBGTemp.Caption & vbTab _
     & LblInfo(0).Caption
  End If
 End If
End Sub