Private Sub pflichtfelder()
 
If objektname.Text = "" Or institution.Text = "" Or Beschreibung.Text = "" Then
    MsgBox ("sie haben in mindestens ein feld nichts eingegeben")
Else
    MsgBox ("speichern...")
 
End If
 
End Sub