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.Value)
	End Sub
End Class