[Resolvido]Validar três ou mais campos de um formulário

Boa noite!
Bom, pesquisei aqui no fórum e em outros mas não encontrei.
Tenho um formulário com todos os campos de preenchimento obrigatório.
Só consigo tornar dois campos obrigatórios através do meu botão SALVAR que tem o seguinte código:


Private Sub btn_Salvar_Click()
If IsNull(Me.txt_Agencia.Value) Or Me.txt_Agencia.Value = "" Then
MsgBox "O campo AGÊNCIA é de preenchimento obrigatório", vbExclamation, "Campo em branco"
ElseIf IsNull(Me.txt_Empresa.Value) Or Me.txt_Empresa.Value = "" Then
MsgBox "O campo EMPRESA é de preenchimento obrigatório", vbExclamation, "Campo em branco"
Else
Me.Nome.Value = Me.txt_Nome.Value
Me.Agencia.Value = Me.txt_Agencia.Value
Me.Responsavel.Value = Me.txt_Responsavel.Value
Me.Empresa.Value = Me.txt_Empresa.Value
Me.DataInicio.Value = Me.txt_DataInicial.Value
Me.DataFinal.Value = Me.txt_DataFinal.ValidationRule
Me.NumeroDoc.Value = Me.txt_NumeroDoc.Value
Me.ValorOP.Value = Me.txt_ValorOp.Value
Me.Informacoes.Value = Me.txt_Info_Bancarias
Me.txt_ID.Value = Me.ID.Value
Me.txt_Codigo = Me.Codigo.Value
End If
End Sub

Como faço para validar os demais campos?

https://www.maximoaccess.com/t25564-preenchimento-obrigatorio-do-campo-no-formulario#182075

Código:


If IsNull(seu campo) Then

MsgBox "Campo(s) Vazio(s)!", vbCritical, "Aviso"
me.seucampo.setfocus

ElseIf IsNull(seu campo1) Then

MsgBox "Campo(s) Vazio(s)!", vbCritical, "Aviso"
me.seucampo1.setfocus

ElseIf IsNull(seu campo2) Then

MsgBox "Campo(s) Vazio(s)!", vbCritical, "Aviso"
me.seucampo2.setfocus

ElseIf IsNull(seu campo3) Then

MsgBox "Campo(s) Vazio(s)!", vbCritical, "Aviso"
me.seucampo3.setfocus

Else

MsgBox "Gravado com sucesso!", vbInformation, "Aviso"

End if


Obrigado.
Resolveu muito bem o meu problema.

Valeu o Fórum agradece!!!