' Check whether a string ends with one of multiple possible choices.' Return -1 if no possible string matches the end of the source,'  otherwise return the index of the matching string.'' Examples:'    Debug.WriteLine(EndsWith("This is my test line", True, "Line",'  "String")) ' => -1'    Debug.WriteLine(EndsWith("This is my test line", True, "string",'  "line")) ' => 1'    Debug.WriteLine(EndsWith("This is my test line", False, "Line",'  "String")) ' => 0'    Debug.WriteLine(EndsWith("This is my test line", False, "string",'  "sentence")) ' => -1Function EndsWith(ByVal source As String, ByVal caseSensitive As Boolean, _    ByVal ParamArray parts() As String) As Integer    Dim i As Integer    For i = 0 To parts.Length - 1        Dim part As String = parts(i)        If caseSensitive Then            If source.EndsWith(part) Then Return i        Else            If source.ToLower().EndsWith(part.ToLower()) Then Return i        End If    Next    ' if we get here, the source does not end with one of the possible choices,    '  so return -1    Return -1End Function