Access - Problemas con ejecución de código en VB Access

Tengo el sgte código en VB en el evento NotInList del combo de un formulario:

Private Sub cmbContacto_NotInList(NewData As String, Response As Integer)
'Pregunta si el usuario quiere añadir un nuevo contacto
Dim strMensaje As String,
strMensaje = "El contacto '" & NewData & "' no existe. Desea agregarlo?"
If fnConfirmacion(strMensaje) Then
DoCmd.OpenForm "frCapturarContacto"
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub

Cuando el usuario decide agregar el dato, abro el cuadro de dialogo "frCapturarContacto" para entrar la información. Sin embargo, el código principal sigue ejecutándose sin esperar cerrar el cuadro de diálogo.
Cómo hago para detener la ejecución del código al abrir el cuadro de diálogo "frCapturarContacto" y seguir la ejecución del código apenas cierre el cuadro de diálogo?

Agradezco la ayuda que me puedan brindar.

Creo que tienes mal el msgbox,,,,, pues de alguna forma tendra que saber si acepta o no y por lo que veo en tu codigo no lo tienes en cuenta.

yo resuelvo este tipo de problema creando una macro con el formulario y colocandole el modo de dialogo y en vez de DoCmd.openform conolo runmacro ....suerte

Donde dice : DoCmd.OpenForm "frCapturarContacto"
Reemplaza por : DoCmd.OpenForm "frCapturarContacto", , , , , acDialog

Atte PEFI