' Search the specified string, with the case-sensitive mode or not' Returns the index of the first occurrence found, or -1 if not foundPublic Function SearchString(ByVal source As String, ByVal search As String, _    Optional ByVal ignoreCase As Boolean = False) As Integer    Dim options As System.Text.RegularExpressions.RegexOptions    ' set the search options according to the ignoreCase parameter    If ignoreCase Then        options = System.Text.RegularExpressions.RegexOptions.IgnoreCase    Else        options = System.Text.RegularExpressions.RegexOptions.None    End If    ' count the occurrences    Dim m As System.Text.RegularExpressions.Match = _        System.Text.RegularExpressions.Regex.Match(source, search, options)    If m.Success Then        Return m.Index    Else        Return -1    End IfEnd Function' Search the specified string, starting at the specified index,'  with the case-sensitive mode or not' Returns the index of the first occurrence found, or -1 if not foundPublic Function SearchString(ByVal source As String, _    ByVal startIndex As Integer, ByVal search As String, _    Optional ByVal ignoreCase As Boolean = False) As Integer    Dim options As System.Text.RegularExpressions.RegexOptions    Dim i As Integer = SearchString(source.Substring(startIndex), search, _        ignoreCase)    If i = -1 Then        Return -1    Else        Return i + startIndex    End IfEnd Function