Option Explicit
 Dim Eingabe
 
Private Sub Inhalt_LostFocus()
 
 Eingabe = Inhalt.Text
 
End Sub
 
Private Sub Form_Load()
 
    Inhalt.AddItem "Hans"
    Inhalt.AddItem "Peter"
    Inhalt.AddItem "Paul"
 
End Sub
 
Private Sub übergeben_Click()
 
prüfen
 
End Sub
 
Private Sub prüfen()
Dim wahl
wahl = Eingabe
 
                  ' prüfen ob Feld 1 schon beschrieben ist
    If Name1.Caption <> "" Then
    GoTo prüfung1
 
    Else
      Name1.Caption = wahl
      GoTo raus
    End If
 
prüfung1:
 
                   ' prüfen ob Feld 2 schon beschrieben ist
    If Name2.Caption <> "" Then
    GoTo prüfung2
     Else
      Name2.Caption = wahl
      GoTo raus
    End If
 
prüfung2:
 
                         ' prüfen ob Feld 3 schon beschrieben ist
    If Name3.Caption <> "" Then
    MsgBox ("kein Feld mehr frei")
     Else
      Name3.Caption = wahl
      GoTo raus
    End If
raus:
End Sub