Private Sub übernehmen_Click()
 Dim i As Integer, j As Integer
 
    j = 0
 
    With Inhalt
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                lblfeld(j).Caption = .List(i)
                j = j + 1
 
                If j = 3 Then
                    Exit For
                End If
            End If
        Next
    End With
 
Prüfen
 
End Sub
 
Private Sub Prüfen()
Dim i as Integer
 
For i = 0 To 2
    If lblfeld(i).Caption = "" Then 
        lblfeld(0).Caption = Eingabe
        Exit Sub
    End If
Next i
 
End Sub