Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim str As String = "ABBBBBBCD"
Dim result As String = Regex.Replace(str, "(?<=B{4})B", "x")
Console.WriteLine(result) //=> "ABxCD"
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gc3RyIEFzIFN0cmluZyA9ICJBQkJCQkJCQ0QiCgkJRGltIHJlc3VsdCBBcyBTdHJpbmcgPSBSZWdleC5SZXBsYWNlKHN0ciwgIig/PD1CezR9KUIiLCAieCIpCgkJQ29uc29sZS5Xcml0ZUxpbmUocmVzdWx0KSAvLz0+ICJBQnhDRCIKCUVuZCBTdWIKRW5kIENsYXNz