'*************************************************
'	Обработка события нажатия кнопки
'************************************************
Private Sub cmd_PermissionKey_Click()
   
On Error GoTo HandleError
    
   'Здесь ваш код
   'это для фомы
   'Ежели для модуля то удалите строчку
   ' vbCrLf & vbCrLf & "  Имя объекта = " & Me.Name & _

ExitProc:
    Exit Sub
HandleError:
    MsgBox vbCrLf & Err.Description & _
            vbCrLf & vbCrLf & "  Имя объекта = " & Me.Name & _
            vbCrLf & vbCrLf & "  Имя процедуры = ctr_US_PermissionKey_Click", _
            vbCritical, "Ошибка " & Err.Number
    Resume ExitProc
End Sub

vbCrLf & vbCrLf & "  Имя процедуры = ctr_US_PermissionKey_Click", _
поправить на 
 vbCrLf & vbCrLf & "  Имя процедуры = cmd_PermissionKey_Click", _