The code in the extended cut did not work on a Swedish keyboard since the = key is Shift + =. The CodeVault code fires directly when I press the Shift key with KeyCode = 16. Had some dialogue with Chat GPT and to capture the Shift + = the following code is proposed and it works well.

Private Sub Form_KeyPress(ByRef KeyCode As Integer)
    If Chr$(KeyCode) = "=" Then
          If Screen.ActiveControl.Tag = "CalculatorAllowed" Then
              FieldCalculator KeyCode
          End If
    End If
End Sub