'@TestMethod("Verify Changes")
Private Sub WhenTextFieldChangesBeforeAndAfterValuesAreReturned()
    Dim testFormAuditor As FormAuditor
    Dim testCollection As New Collection
    ChangeTestText "BeforeValue"
    Set testFormAuditor = New FormAuditor
    ChangeTestText "AfterValue"
    Set testCollection = testFormAuditor.ListOfChanges
    With testCollection.Item(1).FieldChanges("TestText")
    Assert.IsTrue .OldValue = "BeforeValue" And .NewValue = "AfterValue"
    End With
End Sub

Private Sub FormToAudit_BeforeUpdate(Cancel As Integer)
    If FieldChanged(FormToAudit.TestText) Then pListOfChanges.Add FormToAudit.TestText.Value
End Sub

Private Sub FormToAudit_BeforeUpdate(Cancel As Integer)
    If FieldChanged(FormToAudit.TestText) Then pListOfChanges.Add CreateAuditEventDetails
End Sub

Private Function CreateAuditEventDetails() As AuditEventDetails
    Dim retVal As AuditEventDetails
    Set retVal = New AuditEventDetails
    retVal.FieldChanges.Add "TestText", CreateAuditFieldChange("TestText")
    Set CreateAuditEventDetails = retVal
End Function

Private Function CreateAuditFieldChange(FieldName As String) As AuditFieldChange
    Dim retVal As AuditFieldChange
    Set retVal = New AuditFieldChange
    retVal.OldValue = FormToAudit(FieldName).OldValue
    retVal.NewValue = FormToAudit(FieldName).Value
    Set CreateAuditFieldChange = retVal
End Function