Sub Stupid()
  Dim x as Long
  On Error GoTo Err
Err:
  x = 0
  Do Until x < 0
    x = x + 1
    Debug.Print x
  Loop
End Sub

Sub Stupid()
  x = 1
  Do Until x < 0
    x = x
  Loop
End Sub

1 GoTo 1

Sub x()
  1 x = 0
  GoTo 1
End Sub

Sub y()
1 x = 0: GoTo 1
End Sub

Sub z()
x = 0: z
End Sub

/        [TestMethod]
//        public void InitVBAProjectIntitializesRepo()
//        {
//            //arrange
//            var component = new Mock<VBComponent>();
//            component.Setup(c => c.Name).Returns("Module1");
//            component.Setup(c => c.Type).Returns(vbext_ComponentType.vbext_ct_StdModule);
//            component.Setup(c => c.Export("foo")).Verifiable();

//            var componentList = new List<VBComponent>();
//            componentList.Add(component.Object);

where
	mo._Id is null or (mo._EffectiveFrom <= wip.DateIssued and (mo._EffectiveTo is null or mo._EffectiveTo > wip.DateIssued))
	and ma._Id is null or (ma._EffectiveFrom <= wip.DateIssued and (ma._EffectiveTo is null or ma._EffectiveTo > wip.DateIssued))
	and sz._Id is null or (sz._EffectiveFrom <= wip.DateIssued and (sz._EffectiveTo is null or sz._EffectiveTo > wip.DateIssued))