Private Function Entre(ByVal txt As String, ByVal Car1 As String, ByVal Car2 As String) As String Dim iStart, iEnd, length As Integer iStart = txt.IndexOf(Car1) + Car1.Length If iStart > -1 Then iEnd = txt.IndexOf(Car2, iStart) If iEnd > -1 Then length = iEnd - iStart End If End If If length > 0 Then Return txt.Substring(iStart, length) Else Return String.Empty End If End Function