Thanks for the tip,
With some help of Google and a dutch template i have made this code for the cbo and it works fine...
Private Sub cboEmailDomein_NotInList(NewData As String, Response As Integer)
If MsgBox("Deze soort bestaat niet." & vbLf & vbLf & "Toevoegen?", vbYesNo, "Onbekend") =...