Public Sub Test1()
   Dim lngResult As Long
   lngResult = 1 + 4
   Assert.AreEqual 5, lngResult
End Sub

Public Sub Test2()
   Dim lngResult As Long
   lngResult = 1 + 4
   Assert.That lngResult, Iz.EqualTo(5)
End Sub

Public Sub Test3()
   Dim lngResult As Long
   lngResult = 1 + 4 + 1
   Assert.That lngResult, Iz.Not.EqualTo(5)
End Sub