Função IF com mais de uma condição

Amigos, preciso de ajuda no seguinte:
Tenho um formulário de produção, onde preciso impedir o preenchimento(*) do campo "OP Finalizada" em função de alguns campos condicionais, porém de todas as formas que coloquei ele só respeita a primeira condição e ai libera o preenchimento do campo    
Seguem abaixo 3 tentativas considerando duas condições(tenho mais duas condições para incluir):
(*) mantenho o campo bloqueado na estrutura do formulário, apenas permitindo o preenchimento com a data atual se atender as condições determinadas.

Private Sub OPFinalizada_GotFocus()
If Me.NPEmAberto <> "" And Me.PesoBrKg = "" Then
MsgBox "NP OU PESO BRUTO EM ABERTO, PROVIDENCIE A CORREÇÃO DO PROBLEMA ANTES DE CONTINUAR", vbCritical, "A L E R T A!"
Else
Me.OPFinalizada = Data()
Me.Refresh
End If
End Sub

Private Sub OPFinalizada_GotFocus()
If Me.NPEmAberto <> "" Or Me.PesoBrKg = "" Then
MsgBox "NP OU PESO BRUTO  EM ABERTO, PROVIDENCIE A CORREÇÃO DO PROBLEMA ANTES DE CONTINUAR", vbCritical, "A L E R T A!"
Else
Me.OPFinalizada = Data()
Me.Refresh
End If
End Sub

Private Sub OPFinalizada_GotFocus()
If Me.NPEmAberto <> "" Then
MsgBox "NP EM ABERTO, PROVIDENCIE A CORREÇÃO DO PROBLEMA ANTES DE CONTINUAR", vbCritical, "A L E R T A!"
Else
If Me.PesoBrKg = "" Then
MsgBox "PESO BRUTO EM ABERTO, PROVIDENCIE A CORREÇÃO DO PROBLEMA ANTES DE CONTINUAR", vbCritical, "A L E R T A!"
Else
Me.OPFinalizada = Data()
Me.Refresh
End If
End If
End Sub

em cima de um dos sub, coloquei o Elseif (senão se)


Private Sub OPFinalizada_GotFocus()

If Me.NPEmAberto <> "" Then

MsgBox "NP EM ABERTO, PROVIDENCIE A CORREÇÃO DO PROBLEMA ANTES DE CONTINUAR", vbCritical, "A L E R T A!"

exit sub

Elseif Me.PesoBrKg = "" Then

MsgBox "PESO BRUTO EM ABERTO, PROVIDENCIE A CORREÇÃO DO PROBLEMA ANTES DE CONTINUAR", vbCritical, "A L E R T A!"

exit sub

Else

Me.OPFinalizada = Data()
Me.Refresh

exit sub

End If

End Sub