Buldum.  'SendKeys "{esc}", True               bunu sildim artık numlock kapanmıyor.

Private Sub Komut149_Click()
C = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "ACENTEM2017")
Undo
'SendKeys "{esc}", True
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
Dim Msg As String
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl
Application.Quit

End If
End Sub