[محمود صالح]

PHP كود :

Imports System.Text.RegularExpressions
        Dim str As String = Regex.Match(RichTextBox1.Text, "(?<=access_token:).+?(?==|$)").Value