' 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

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job