Public Function LineEndsWithFast( _
      ByRef vLine As String _
    , ByRef vFind As String _
    , ByRef vCompare As VbCompareMethod _
    ) As Boolean    LineEndsWithFast("This is a test.", "TEST.", vbTextCompare) = True
    LineEndsWithFast("This is a test.", "IS", vbTextCompare) = False
    LineEndsWithFast("This is a test.", "", vbTextCompare) = TruevLine: The string whose end is checked to see if it matches string vFind. Note: Unlike most other string search functions, this one returns True if vFind is an empty string.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.