Visual Basic para Aplicaciones - Problema cuadro combo Access

Saludos:
Tengo un subformulario en Access relativo a empresas (empresasclientes) en el que colocas el NIF y automáticamente aparece el nombre de la empresa en cuestión, el problema es cuando se trata de una nueva empresa y su NIF no aparece, tengo que ir a la tabla (Empresas)donde están las empresas y añadirla.
Me gustaría evitarlo y que se pudiese hacer desde el subformulario pero con el VBasic soy una calamidad, he intentado con esto pero no hay forma:
Dentro de las propiedad Al No Estar en Lista del campo NIF puse esto:

Private Sub NIF_NotInList(NewData As String, Response As Integer)
Dim strNIF As String
Dim intReturn As Integer, varNIF As Variant
strNIF = NewData
intReturn = MsgBox("¿Desea añadir esta empresa?", vbQuestion + vbYesNo)
If intReturn = vbYes Then
DoCmd.OpenForm ForName:="Empresas", DataMode:=acAdd, WindowMode:=acDialog, OpenArgs:=strNIF
If IsNull(DLookup("NIF", "tblEmpresas", "[NIF]=""")) Then
Response = acDataErrContinue
Else
Response = acDataErrAdded
End If
Exit Sub
End If
Response = acDataErrDisplay

End Sub
Y en la propiedad Al Cargar del formulario Empresas esto otro:
Private Sub Form_Load()
Dim strNIF As String
If IsNothing(Me.OpenArgs) Then Exit Sub
strNIF = Me.OpenArgs
End If
End Sub
¿Alguien me podría indicar como se hace correctamente?
Muchas gracias