[elgokr]

لا اعلم هذا ما تقصده أم لا لكن قم باستخدام الكود التالى للتاكد

كود :

extBox1.Text = "access_token:""EAAdffgbnmgtyrfghjklTx418Rmgi4lMoIWIdfrrtyuhhgRAR37ABDzEGakS5GwreditpostBAlt34GmOV0fHkhjkopewARqRZCyZB0r0H3oGSVIUpIggoKMWyyItUZC"""
       Dim Lines As String() = TextBox1.Lines
       Dim row(0) As String
       Dim run As String = ""
       For i As Integer = 0 To Lines.Length - 1
           Dim line As String = Lines(i).ToString.Trim
           If line.StartsWith("access_token:") Then
               row(0) = line.Replace("access_token:", "").Trim
               row(0) = row(0).Replace("""", "").Trim
           End If
           run = row(0)
       Next
       MsgBox(run)

تمنياتى لك التوفيق

تحياتى لك