Private Sub StripMatchingBeginLineFastVerify()
    'Test the StripMatchingBeginLineFast function.

    Debug.Assert StripMatchingBeginLineFast("Abc", "", vbBinaryCompare) = "Abc" ' Behavior #1

    Debug.Assert StripMatchingBeginLineFast("AbcDefAbc", "Abc", vbBinaryCompare) = "DefAbc" ' Behavior #2
    Debug.Assert StripMatchingBeginLineFast("AbcDefAbc", "ABC", vbBinaryCompare) = "AbcDefAbc"
    Debug.Assert StripMatchingBeginLineFast("AbcDefAbc", "Abc", vbTextCompare) = "DefAbc"
    Debug.Assert StripMatchingBeginLineFast("AbcDefAbc", "ABC", vbTextCompare) = "DefAbc"

    Debug.Assert StripMatchingBeginLineFast("AbcDefGhi", "Abc", vbBinaryCompare) = "DefGhi" ' General Behavior
    Debug.Assert StripMatchingBeginLineFast("AbcDefGhi", "Def", vbBinaryCompare) = "AbcDefGhi"
    Debug.Assert StripMatchingBeginLineFast("AbcDefGhi", "Ghi", vbBinaryCompare) = "AbcDefGhi"

End Sub