Imports System

Public Class Test
	Public Shared Sub Main()
		Dim re As New Text.RegularExpressions.Regex("(?<=cont.*?)I(.*?)I(?=.*?/cont)")
		Dim s As String = "cont cont ItextI /cont /cont"
		Dim m As Text.RegularExpressions.Match = re.Match(s)

		Console.WriteLine(m.Groups(1).Value & m.Value & m.Groups(3).Value)
	End Sub
End Class