Private Type
   As Variant
End Type

Sub  ()
    Dim   As
       .  = 42
     Debug.Print .
End Sub

Function TwoPlusTwo()

  Const  5 = 4
  Debug.Assert 2 + 2 =  5

End Function

SELECT *
FROM  DROP TABLE MSysObjects;

Sub Versive()
 : Debug.Print "foo"
GoTo
End Sub

Public Sub End Sub()
End Sub

Private this As TFoo
Private foobar As Integer

Public Function Create(ByRef values As TFoo, value As Integer) As SomeClass
    With New SomeClass
        .Foo = values
        Set Create = .Self
    End With
End Function

Public Property Get Self() As SomeClass
    Set Self = SomeClass
End Property

Public Property Get Foo() As TFoo
    Foo = this
End Property

Public Property Let Foo(ByRef value As TFoo)
    this = Foo
End Property

Public Property Get DaFooBar() As Integer
    DaFooBar = foobar

Option Explicit
Public Property Get Foo() As TFoo
End Property

Option Explicit
Public Type TFoo
    Bar As Integer
    Barrrr As String
End Type


Public Sub DoSomething()
    Dim a As SomeClass
    Dim b As TFoo

    Set a = SomeClass.Create(b, 42)
End Sub

interface IFooFactory
{
    IFoo Create();
}