Access - modificar variables en un modulo

Buenas tardes y graias por atenderme.
tengo puesto en el campo DME en el evento antes de actualizar el siguiente modulo
Private Sub DME_BeforeUpdate(Cancel As Integer)
If Nz(Me![DME], "") <> "" Then
If UCase(Nz(DLookup("EDME", "contacto", "[DME]='" & Me.DME & "' AND [EDME]='A'"), "")) = "A" Then

MsgBox "C O N T A C T O -- A C R E D I T A D O "
Else
' Algo diferente a "A"
' NO MENSAJES
End If
End If
End Sub
y quiera si es posible aparte de esta condicion poner "P" y en texbox por endosar y "E" en tex box endosado
¿es posible? me tiene ya loco
gracias anticipadas

Buenas.

Si te entendido bien, añade



Éso si te he entendido bien, aunque no entiendo lo del título.

Un saludo.

Buenas tardes Norberto en primer lugar gracias y mucha gracias por contestar a mi llamada
en segundo lugar perdona mi tardanza en contestar pues mis labores me lo han impedido.
comienzo que soy neofito en modulos este me lo facilitó un compañero como tú de los que le gusta ayudar a los que no sabemos por eso mi pregunta
en la linea donde tengo que poner Me.por endosar tambiem tengo que poner If Ucase etc por favor como quedaria?
saludos