Private Sub übernehmen_Click()
 Dim i As Integer
 Dim 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 wahl
wahl = Eingabe
         ' prüfen ob Feld 1 schon beschrieben ist
    If lblfeld(0).Caption <> "" Then
    GoTo prüfung1
 
    Else
      lblfeld(0).Caption = wahl
      GoTo raus
    End If
 
prüfung1:
 
         ' prüfen ob Feld 2 schon beschrieben ist
    If lblfeld(1).Caption <> "" Then
    GoTo prüfung2
     Else
      lblfeld(1).Caption = wahl
      GoTo raus
    End If
 
prüfung2:
 
         ' prüfen ob Feld 3 schon beschrieben ist
    If lblfeld(2).Caption <> "" Then
    MsgBox ("kein Feld mehr frei")
     Else
      lblfeld(2).Caption = wahl
    End If
raus:
End Sub