[Aly El-Haddad]

كود :

Public Function GetBody(ByVal str As String, ByVal start As String, ByVal [end] As String) As String
        Dim len As Integer = 0
        len = (str.IndexOf(start) + start.Length)
        len = (str.IndexOf([end]) - len)
        Return str.Substring((str.IndexOf(start) + start.Length), len)
    End Function

كود :

RichTextBox2.Text = GetBody(RichTextBox1.Text, "[year1]", "[end]")