I have 18 textboxes on my form. The user is not allowed to exit form without filling all the textboxes. At the moment I am using:
Code:
           If txtKlant_nummer.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtKlant_nummer.SetFocus
            ElseIf txtKlantnaam.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtKlantnaam.SetFocus
            ElseIf txtPostadres.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtPostadres.SetFocus
            ElseIf txtWoonplaats.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtWoonplaats.SetFocus
            ElseIf txtPostcode.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtPostcode.SetFocus
            ElseIf txtLand.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtLand.SetFocus
            ElseIf txtBTW_nummer.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtBTW_nummer.SetFocus
            ElseIf txtTelefoon.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtTelefoon.SetFocus
            ElseIf txtTelefoon2.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtTelefoon2.SetFocus
            ElseIf txtFaxnummer.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtFaxnummer.SetFocus
            ElseIf txtFaxnummer2.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtFaxnummer2.SetFocus
            ElseIf txtMobieletelefoon.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtMobieletelefoon.SetFocus
            ElseIf txtEmail_adres.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtEmail_adres.SetFocus
            ElseIf txtNotitie_factuur.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtNotitie_factuur.SetFocus
            ElseIf txtNotitie_factuur_2.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtNotitie_factuur_2.SetFocus
            ElseIf txtOpslagpercentage.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtOpslagpercentage.SetFocus
            ElseIf txtCommissie.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtCommissie.SetFocus
            ElseIf txtDagen.Text = Empty Then
                Call MsgBox("Alle velden invullen.", vbExclamation + vbDefaultButton1, "Let Op!")
                txtDagen.SetFocus
            Else
 BlaBla

end if
At the moment it isn't working because after the msgbox the sub doesn't go to the blabla but exits the sub. And isn't there a cleaner way??

Thanks,
Brian