Private Sub übernehmen_Click()
prüfen
End Sub
 
Private Sub prüfen()
Dim wahl
wahl = Eingabe
 
    If Name1.Caption <> "" Then
    GoTo prüfung1
 
    Else
      Name1.Caption = wahl
      GoTo raus
    End If
 
prüfung1:
    If Name2.Caption <> "" Then
    GoTo prüfung2
     Else
      Name2.Caption = wahl
      GoTo raus
    End If
 
prüfung2:
    If Name3.Caption <> "" Then
    MsgBox ("kein Feld mehr frei")
     Else
      Name3.Caption = wahl
      GoTo raus
    End If
raus:
End Sub