'@Ignore ConstantNotUsed
Const foo As Integer = 4, buzz As String = "ftesti"

'@Ignore ConstantNotUsed("foo")

'@Ignore UseMeaningfulName
Sub f(f)
End Sub

'@Ignore ConstantNotUsed("foo", "buzz")

'@Ignore UseMeaningfulName("f")

'@Ignore ConstantNotUsed, ConstantNotUsed
Const foo As Integer = 4, buzz As String = "ftesti"

Dim foo As New Collection

'Module1
Option Explicit

Public Type Foo
    Bar As Integer
    Baz As Long
End Type

Private Sub Tests()
    Dim Temp As Class1

    Set Temp = New Class1
    Dim Var As Foo
    Var.Bar = 42
    Temp.FrobTheFoo Var

    Var = Temp.GimmeSomeFoo
    Debug.Print Var.Bar
End Sub

Option Explicit

Public Sub FrobTheFoo(ByRef Var As Foo)
    Debug.Print Var.Bar
End Sub

Public Function GimmeSomeFoo() As Foo
    Dim OutVal As Foo
    OutVal.Bar = 666
    GimmeSomeFoo = OutVal
End Function

'Module1
Option Explicit

Private mFoo As Long

Public Property Let Foo(Var As Long)
    mFoo = Var
End Property

Public Property Get Foo() As Long
    Foo = mFoo
End Property

'Module 2
Option Explicit

Public Sub Method()
    Module1.Foo = 42
    Debug.Print Module1.Foo
End Sub