Private Sub lblDateLeg_DblClick(Cancel As Integer)
On Error GoTo ErrorHandler
    
    Call ChangeColorLabelAndSetDefaultValue(lblDateLeg) 'на этой строке ошибка
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Ошибка №:" & Err.Number & ";Описание:" & Err.Description & " в процедуре lblDateLeg_DblClick модуля Form_frmSpecimens"
    Resume ErrorHandlerExit
End Sub

Private Sub ChangeColorLabelAndSetDefaultValue(mstrNameOfControl As String)
On Error GoTo ErrorHandler
    
    If Me(mstrNameOfControl).BackColor <> -2147483633 Then 'если цвет фона надписи не серый,
        Me(mstrNameOfControl).BackColor = -2147483633 'делаем его серым
    Else 'если цвет фона надписи  серый,
        Me(mstrNameOfControl).BackColor = 8781460   'делаем его зеленым
        'и меняем значение по умолчанию соответствующего контрола
        Select Case mstrNameOfControl
        
        End Select
        
    End If
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Ошибка №:" & Err.Number & ";Описание:" & Err.Description & " в процедуре ChangeColorLabelAndSetDefaultValue модуля Form_frmSpecimens"
    Resume ErrorHandlerExit
End Sub