Imports System

Imports System.Text.RegularExpressions

Public Module Module1

​

    Public Sub Main()

        Dim valueToSearch = "theQuickBrownfoxjumpedoverthelazydog"

        Dim valueSearchingFor = "Brown"

        Console.WriteLine("IndexOfMatch: {0}", IndexOfMatch(valueToSearch, valueSearchingFor))

        Console.WriteLine("ContainsMatch: {0}", ContainsMatch(valueToSearch, valueSearchingFor))

        Console.WriteLine("RegExMatch: {0}", RegExMatch(valueToSearch, valueSearchingFor))

    End Sub

​

    Private Function IndexOfMatch(valueToSearch As String, valueSearchingFor As String) As Boolean

        Dim index = valueToSearch.IndexOf(valueSearchingFor)

        Dim isMatch = index > -1

        Return isMatch

    End Function

​

    Private Function ContainsMatch(valueToSearch As String, valueSearchingFor As String) As Boolean

        Dim isMatch = valueToSearch.Contains(valueSearchingFor)

        Return isMatch

    End Function

​

    Private Function RegExMatch(valueToSearch As String, valueSearchingFor As String) As Boolean

        Dim isMatch = RegEx.IsMatch(valueToSearch, valueSearchingFor)

        Return isMatch

    End Function

​

End Module