Dim ClassWithDefaultMember As New Class1
Debug.Print ClassWithDefaultMember![]

        Bind<IControlView>().To<ChangesView>().Named("changesView");
        Bind<IControlView>().To<BranchesView>().Named("branchesView");
        Bind<IControlView>().To<UnsyncedCommitsView>().Named("unsyncedCommitsView");
        Bind<IControlView>().To<SettingsView>().Named("settingsView");

        Bind<IControlViewModel>().To<ChangesViewViewModel>()
            .WhenInjectedInto<ChangesView>();
        Bind<IControlViewModel>().To<BranchesViewViewModel>()
            .WhenInjectedInto<BranchesView>();
        Bind<IControlViewModel>().To<UnsyncedCommitsViewViewModel>()
            .WhenInjectedInto<UnsyncedCommitsView>();
        Bind<IControlViewModel>().To<SettingsViewViewModel>()
            .WhenInjectedInto<SettingsView>();

        Bind<ISourceControlProviderFactory>().To<SourceControlProviderFactory>()
            .WhenInjectedInto<SourceControlViewViewModel>();

                Bind<IInspection>().ToMethod(
                    c => c.Kernel.Get<IParseTreeInspection>(inspection.FullName));

Private Sub Test()
Dim foo As String, bar As String _
, baz As String _
, somethingElse As String
End Sub

Private Sub Test()
	Dim foo As String, bar As String _
	, baz As String _
	, somethingElse As String
End Sub

public SourceControlViewViewModel(
    VBE vbe,
    RubberduckParserState state,
    ISinks sinks,
    ISourceControlProviderFactory providerFactory,
    IFolderBrowserFactory folderBrowserFactory,
    ISourceControlConfigProvider configService,
    [Named("changesView")] IControlView changesView,
    [Named("branchesView")] IControlView branchesView,
    [Named("unsyncedCommitsView")] IControlView unsyncedCommitsView,
    [Named("settingsView")] IControlView settingsView,
    ICodePaneWrapperFactory wrapperFactory,

var binding = Bind<CommandBase>().To(command);

                    binding.When(request => whenCommandMenuItemCondition(request) || whenHooksCondition(request))
                        .InSingletonScope();

Private Sub Test()
    Dim foo        As String, bar As String _
    , baz          As String _
    , somethingElse As String
    Dim x          As Integer
End Sub

Sub foo()

  Dim cc As ContentControl

  Set cc = ThisDocument.ContentControls.Add
  'This fails
  'cc.SetPlaceholderText Text:=vbNullString

  'This works
  cc.SetPlaceholderText Text:=""

End Sub

?typename(cvar(vbnullstring))
String

Const EmptyPlaceHolderString As String = vbNullString

Sub test()
    Debug.Print VarPtr(EmptyPlaceHolderString)              '4516464
    Debug.Print VarPtr(vbNullString)                        '4516464
    Debug.Print StrPtr(EmptyPlaceHolderString)              '0
    Debug.Print StrPtr(vbNullString)                        '0
End Sub

Const EmptyPlaceHolderString As String = ""

Sub test()
    Debug.Print VarPtr(EmptyPlaceHolderString)              '4516464
    Debug.Print VarPtr(vbNullString)                        '4516464
    Debug.Print StrPtr(EmptyPlaceHolderString)              '347954112
    Debug.Print StrPtr(vbNullString)                        '0
End Sub

Sub foo()

  Const wdPlaceHolderString As Variant = vbNullString

  Dim cc As ContentControl

  Set cc = ThisDocument.ContentControls.Add
  'This works
  cc.SetPlaceholderText Text:=(wdPlaceHolderString)

End Sub

Sub DoSomething(ByVal value1 As Integer, ByVal value2 As Integer)
    CallStack.Push "Module1", "DoSomething", value1, value2
    Debug.Print CallStack.ToString
    CallStack.Pop
End Sub

DoSomething 42, 12
at Module1.DoSomething({Integer:42},{Integer:12})

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, _
    ByVal length As Long)

Const wdPlaceHolderString As Variant = vbNullString

Public Type ComVariant
    VarType As Integer
    Reserved1 As Integer
    Reserved2 As Integer
    Reserved3 As Integer
    Data As Long
End Type

Sub Test()
    Dim Raw As ComVariant
    Dim GuineaPig As Variant

    GuineaPig = vbNullString
    CopyMemory Raw, GuineaPig, LenB(Raw)
    Debug.Print Raw.Data        'Prints 0

DoSomething 42, 12, "test"
Runtime error 11: Division by zero
at Module1.TestSomethingElse({Integer:42})
at Module1.DoSomething({Integer:42},{Integer:12},{String:"test"})

Sub mdlabkill()