Я сделал так (работает):

Combo0:
Format = оставил пустым
Input Mask = "8-("000") "000\-0000;1;_""
Source = SELECT Format(Phone,"""8-(""@@@) @@@-@@@@") AS Expr1 FROM Phone;

Private Sub Combo0_NotInList(NewData As String, Response As Integer)

If MsgBox("Phone not in list! Add?", vbOKCancel) = vbOK Then
CurrentDb.Execute "Insert into Phone (Phone) Values ('" & NewData & "')"

Me.Combo0.Undo
DoEvents
Me.Combo0.Requery
Me.Combo0 = Format(NewData, """8-(""@@@) @@@-@@@@")
Response = acDataErrContinue
SendKeys "{Enter}"

Else
Response = acDataErrContinue
Me.Combo0.Undo
End If

End Sub

Не использую дополнительную форму, если нкжно ввести новый номер, то зачем открывать форму раз уж он введен!?