Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
		Dim strProhibitedWord As String = "fox"
		Dim strProhibitedWordEnclosed As String = "(?<!\p{L})(" & strProhibitedWord.Substring(0,1) & ")" & strProhibitedWord.Substring(1) & "(?!\p{L})"
		Dim strSentence1 As String = "The quick brown Fox jumped over the foxy sheep to see his fox friend."
		Dim optOptions1 As RegexOptions = RegexOptions.IgnoreCase
		Dim strResult As String = Regex.Replace(strSentence1, strProhibitedWordEnclosed, "$1**", optOptions1)
 
		Console.WriteLine(strResult)
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gc3RyUHJvaGliaXRlZFdvcmQgQXMgU3RyaW5nID0gImZveCIKCQlEaW0gc3RyUHJvaGliaXRlZFdvcmRFbmNsb3NlZCBBcyBTdHJpbmcgPSAiKD88IVxwe0x9KSgiICYgc3RyUHJvaGliaXRlZFdvcmQuU3Vic3RyaW5nKDAsMSkgJiAiKSIgJiBzdHJQcm9oaWJpdGVkV29yZC5TdWJzdHJpbmcoMSkgJiAiKD8hXHB7TH0pIgoJCURpbSBzdHJTZW50ZW5jZTEgQXMgU3RyaW5nID0gIlRoZSBxdWljayBicm93biBGb3gganVtcGVkIG92ZXIgdGhlIGZveHkgc2hlZXAgdG8gc2VlIGhpcyBmb3ggZnJpZW5kLiIKCQlEaW0gb3B0T3B0aW9uczEgQXMgUmVnZXhPcHRpb25zID0gUmVnZXhPcHRpb25zLklnbm9yZUNhc2UKCQlEaW0gc3RyUmVzdWx0IEFzIFN0cmluZyA9IFJlZ2V4LlJlcGxhY2Uoc3RyU2VudGVuY2UxLCBzdHJQcm9oaWJpdGVkV29yZEVuY2xvc2VkLCAiJDEqKiIsIG9wdE9wdGlvbnMxKQoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKHN0clJlc3VsdCkKCUVuZCBTdWIKRW5kIENsYXNz