VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "BoxedInt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private this As Integer

Public Property Get Value() As Integer
Attribute Value.VB_UserMemId = 0
    Value = this
End Property

Public Property Let Value(val As Integer)
    this = val
End Property

Public Sub test()

    Const i As Integer = 1
    Dim o As New BoxedInt

     o = i

End Sub

        public override void EnterVariableCallStmt(VBParser.VariableCallStmtContext context)
        {
            if (!(context.Parent is VBParser.AsTypeClauseContext))
            {
                base.EnterVariableCallStmt(context);
            }
        }

        private bool IsUserDefinedType(VBParser.VariableSubStmtContext context)
        {
            if (context == null)
            {
                return false;
            }

            var type = context.AsTypeClause() == null
                ? string.Empty
                : context.AsTypeClause().Type().GetText();

            // note: scoping issue; a private type could be used in another module (but that wouldn't compile)
            // Rubberduck inspections assume VBA code compiles though.

private string FormatResultForClipboard(ICodeInspectionResult result)
{
    var module = result.QualifiedSelection.QualifiedName;
    return string.Format(
        "{0}: {1} - {2}.{3}, line {4}",
        result.Severity,
        result.Name,
        module.ProjectName,
        module.ModuleName,
        result.QualifiedSelection.Selection.StartLine);
}

    public enum CodeInspectionSeverity
    {
        DoNotShow,
        Hint,
        Suggestion,
        Warning,
        Error
    }