[معاند الحظ]

أنت على العين وعلى الراس اخوي ابو روضه  وما يحتاج تعتذر 

واللي سويته أنا شيئ بسيط وسهل .

طريقة استخراج الرابط الاول هى انك تخرج من الحلقه For Each link As HtmlElement

باستخدام Exit For داخل الجملة الشرطية كالتالي

كود :

For Each link As HtmlElement In wb.Document.Links
               If link.GetAttribute("href").Contains("googlevideo.com") Then
                   rtxt.AppendText(link.GetAttribute("href") & vbNewLine)
Exit For
               End If
           Next