Dim coll As New Collection
coll.Add "Apple"
coll.Add "Pear"
Set coll = Nothing
coll.Add "Pear"

Dim coll As Collection
Set coll = New Collection
coll.Add "Apple"
coll.Add "Pear"
Set coll = Nothing
coll.Add "Pear" 'boom

        private ICommand _WSOneNoteCommand;
        public ICommand WSOneNoteCommand
        {
            get
            {
                if (_WSOneNoteCommand == null)
                {
                    _WSOneNoteCommand = new RelayCommand
                    (
                        param => this.SwitchTutorial(AppVersion.OneNoteWStore),
                        param => true
                    );
                }
                return _WSOneNoteCommand;
            }
        }

        private ICommand _WPOneNoteCommand;

<Button Command="{Binding WSOneNoteCommand}" />
<Button Command="{Binding WPOneNoteCommand}" />

    public class ActiveCodePaneEditor : IActiveCodePaneEditor
    {
        private readonly VBE _vbe;

        public ActiveCodePaneEditor(VBE vbe)
        {
            _vbe = vbe;
        }

        private CodeModule Editor { get { return _vbe.ActiveCodePane.CodeModule; } }

        public void DeleteLines(Selection selection)
        {
            Editor.DeleteLines(selection.StartLine, selection.LineCount);
        }

        public void ReplaceLine(int line, string content)
        {
            Editor.ReplaceLine(line, content);

        private IEnumerable<ExtractedParameter> ExtractParameters(IList<KeyValuePair<VBAParser.AmbiguousIdentifierContext, ExtractedDeclarationUsage>> declarations)
        {
            var consts = declarations
                .Where(kvp => kvp.Key.Parent is VBAParser.ConstSubStmtContext)
                .Select(kvp => kvp.Key.Parent)
                .Cast<VBAParser.ConstSubStmtContext>()
                .Select(constant => new ExtractedParameter(
                    constant.ambiguousIdentifier().GetText(),

        private IEnumerable<ExtractedParameter> ExtractParameters(IList<Declaration> declarations)
        {
            return declarations.Where(declaration => ParameterDeclarationTypes.Contains(declaration.DeclarationType))
                .Select(declaration => new ExtractedParameter(declaration.IdentifierName, declaration.AsTypeName, ExtractedParameter.PassedBy.ByVal));
        }

' Magic

' Beware, there be dragons beyond these gates.

private string FolderPicker

Do While IIf(cycYear = cycTo.Year, cycNum <= cycTo.Number, cycYear < cycTo.Year)

    'ExportSchedule wb, cycYear, cycNum, this.CurrentFilter

    Debug.Print cycYear; cycNum

    If cycNum = cycFrom.MaxCycleNumber Then
        cycNum = cycFrom.MinCycleNumber
        cycYear = cycYear + 1
    Else
        cycNum = cycNum + 1
    End If

Loop