Iyi de yazdığınız kod sadece ekrana mesaj yazmak için, mesajı yazdıktan sonra işi bitiyor kodun.ya Kaydetme kodunu da if bloğunun içine almalısınız yada uyarıdan sonra exit sub ile cikmalisiniz

---

If Len(TextBox3 & TextBox4 & TextBox8 & "") = 0 Then

Msgbox "alanlardan en az biri dolu olmali"

Exit sub 

End if

gibi