1 - 1'i boşken yazmaması için
If IsNull(TextBox5) + IsNull(TextBox6) = -1 Then msgbox "kutulardan biri boş"
2 - en az biri doluysa if len(TextBox2 & TextBox3 & TextBox4 & "")>0 then msgbox "en az biri dolu"
If IsNull(TextBox5) + IsNull(TextBox6) = -1 Then msgbox "kutulardan biri boş"
2 - en az biri doluysa if len(TextBox2 & TextBox3 & TextBox4 & "")>0 then msgbox "en az biri dolu"