[fouadhdfouad]

استعمل هذه الطريقة اخي ربما تنفعك

ضع النص في textbox1 

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim access As String = Regex.Match(TextBox1.Text, "(?<=TOKEN=).*?-.*?--.*?(?=\;)", RegexOptions.IgnoreCase).Value
        TextBox2.Text = access
        Exit Sub
    End Sub