[Resolvido]Campos pre definido para varias caixa de texto em um só código

Boa tarde amigos, uso o código a seguir para definir campos obrigatórios em meu formulário.

   Private Sub Btincluir_GotFocus()
If IsNull(Me.VALOR) = True Then
    MsgBox "Campo VALOR e de preenchimento obrigatório", vbCritical, "Atenção"
    Cancel = True
   
End If


Não sei como fazer mais um exemplo de como queria que ficasse..

1º Valor
2º Empresa
3º Taxa 
4º Data da venda.    
     
Private Sub Btconcluir_GotFocus()
If IsNull(Me.VALOR,me.Empresa,me.taxa,me.data_da_venda) = True Then
    MsgBox "Existem campos não preenchidos que são obrigatórios", vbCritical, "Atenção"
    Cancel = True
   
End If

Objetivo:
1º Quando o código fosse acionado ele cancelasse o salvamento, pois ele esta salvando após o procedimento, e acaba criando registros co campos em brancos 
2º Verificar o campo não preenchido e receber o foco. 
Obrigado..

Tente:

If IsNull(Me.Campo1) Or IsNull(me.Campo2)...

Obrigado criquio mais uma vez, funcionou do jeito que eu queria.. Abraço

Grato pelo retorno. O fórum agradece.