Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim str As String = "The FOX Profession is VB Programmer"
Dim pattern As String = "fox"
Dim contains As Boolean = Regex.IsMatch(str, pattern, RegexOptions.IgnoreCase)
Console.WriteLine(contains)
End Sub
End Class
' run:
'
' True
'