Attribute VB_Name = "SqlCommand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private converter As New AdoValueConverter
Private connString As String
Private resultFactory As New SqlResult
Option Explicit

Public Property Get ConnectionString() As String
    ConnectionString = connString
End Property

Public Property Let ConnectionString(ByVal value As String)
    connString = value
End Property

Public Property Get ParameterFactory() As AdoValueConverter

Attribute VB_Name = "SqlCommand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
'@PredeclaredId
Private converter As New AdoValueConverter
Private connString As String
Private resultFactory As New SqlResult
Option Explicit

Public Property Get ConnectionString() As String
    ConnectionString = connString
End Property

Public Property Let ConnectionString(ByVal value As String)
    connString = value
End Property

Attribute VB_Name = "SqlCommand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
'@PredeclaredId
Private converter As New AdoValueConverter
Private connString As String
Private resultFactory As New SqlResult
Option Explicit

Public Property Get ConnectionString() As String
    ConnectionString = connString
End Property

Public Property Let ConnectionString(ByVal value As String)
    connString = value
End Property

Attribute VB_Name = "SqlCommand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
'@PredeclaredId
Private converter As New AdoValueConverter
Private connString As String
Private resultFactory As New SqlResult
Option Explicit

Public Property Get ConnectionString() As String
    ConnectionString = connString
End Property

Public Property Let ConnectionString(ByVal value As String)
    connString = value
End Property

    /// <summary>
    /// Fails the assertion without checking any conditions.
    /// </summary>
    /// <param name="message">An optional message to display.</param>
    void Fail(string message = null);

    /// <summary>
    /// Verifies that the specified condition is <c>true</c>. The assertion fails if the condition is <c>false</c>.
    /// </summary>
    /// <param name="condition">Any Boolean value or expression.</param>
    /// <param name="message">An optional message to display if the assertion fails.</param>
    void IsTrue(bool condition, string message = null);

If Not AreCellsEqual Then
    Assert.Fail "Fails on table row: " & tblRow
    Exit For
End If

Assert.IsTrue AreCellsEqual

Exit _
Sub

    'Assert:
    Dim tblRow As Long
    For tblRow = 1 To tblBodyRange.Rows.Count
        Dim AreCellsEqual As Boolean
        AreCellsEqual = (tblBodyRange(tblRow, referenceCellColumn) = tblBodyRange(tblRow, expectedCellColumn))
        'Assert.IsTrue AreCellsEqual
        If Not AreCellsEqual Then
            Err.Raise vbObjectError + 1, Description:="Fails on: " & tblBodyRange(tblRow, 1) & " | Row: " & tblRow
            'Assert.IsFail AreCellsEqual, "Fails on table row: " & tblRow
            'Exit For

    If Not AreCellsEqual Then
        Assert.Fail "Fails on table row: " & tblRow
        Exit For
    End If

Public Sub Test()
    If Foo = 42 Then: Bar = Foo: Else: Baz = Foo:
'    End If
End Sub

If _
foo _
Then _
bar _
Else _
baz

If _
foo _
Then _
bar _
Else _
baz ' _
End If

IE:
    Public Sub SomeTest()
        Assert.IsTrue expected1, result1
        Assert.IsTrue expected2, result2
        Assert.IsTrue expected3, result3
    End Sub

For tblRow = 1 To tblBodyRange.Rows.Count
    Dim cellExpected As Range
    Set cellExpected = tblBodyRange(tblRow, expectedCellColumn)

    Dim cellReference As Range
    Set cellReference = tblBodyRange(tblRow, referenceCellColumn)

    Dim AreCellsEqual As Boolean
    AreCellsEqual = (cellReference.Value2 = cellExpected.Value2)

    If Not AreCellsEqual Then
        Union(cellReference, cellExpected).Interior.Color = VIOLATION_COLOR
        Assert.Fail "Fails on: " & tblBodyRange(tblRow, 1) & " | Row: " & cellReference.Row

Dim foo As Something
Set foo = New Something
foo.DoSomething

Dim state As New CName1
state.Subname1

        protected virtual string GenerateMethodCall(dynamic declaration)
        {
            var qualifiedMemberName = declaration.QualifiedName;
            var module = qualifiedMemberName.QualifiedModuleName;

            var documentName = string.IsNullOrEmpty(module.ProjectPath)
                ? declaration.ProjectDisplayName
                : Path.GetFileName(module.ProjectPath);

            string candidateString = string.IsNullOrEmpty(documentName)
                ? qualifiedMemberName.ToString()

            var expectedType = expected.GetType();
            var actualType = actual.GetType();

            if (expectedType.IsArray && actualType.IsArray)

C:\Dev\VBA\MyProject\Foobar.xlsm

        public void AreNotSameShouldFailWithSameReferences()
        {
            var assert = new AssertClass();
            var obj1 = new object();
            var obj2 = obj1;
            assert.AreNotSame(obj1, obj2);

            Assert.AreEqual(TestOutcome.Failed, _args.Outcome);
        }

    var documentName = string.IsNullOrEmpty(module.ProjectPath)
        ? declaration.ProjectDisplayName
        : Path.GetFileName(module.ProjectPath);