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

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.