Выбрать все интернет ссылки из RichTextBox - Visual Basic .NET

Формулировка задачи:

Здравсвуйте. Появилась задача выбрать все интернет ссылки из RichTextBox. Написал. Не работает, очень странно ссылок из 12 выбераются 3.

                    Листинг программы
                
 
                        
                          
                    
Imports System.IO
 
Public Class Form1
 
    Public gdir As String = My.Application.Info.DirectoryPath + ""
    Public gblonknot As String = gdir + "Пароли.txt"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.RichTextBox1.Text = IO.File.ReadAllText(gblonknot, System.Text.Encoding.GetEncoding(1251))
        Dim p1, p2 As Integer
        p1 = Me.RichTextBox1.Text.IndexOf("https://")
        Do While p1 <> -1
            p2 = Me.RichTextBox1.Text.IndexOf(Chr(10), p1 + 8)
            Me.RichTextBox2.Text += Mid(Me.RichTextBox1.Text, p1 + 1, p2 - p1 + 1) & vbCrLf
            p1 = Me.RichTextBox1.Text.IndexOf("https://", p2 + 1)
        Loop
    End Sub
 
End Class

Решение задачи: «Выбрать все интернет ссылки из RichTextBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Imports System.IO
 
Public Class Form1
 
    Public gdir As String = My.Application.Info.DirectoryPath + ""
    Public gblonknot As String = gdir + "Пароли.txt"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.RichTextBox1.Text = IO.File.ReadAllText(gblonknot, System.Text.Encoding.GetEncoding(1251))
        Dim p1, p2 As Integer
        p1 = Me.RichTextBox1.Text.IndexOf("http")
        Do While p1 <> -1
            p2 = Me.RichTextBox1.Text.IndexOf(Chr(10), p1 + 8)
            Me.RichTextBox2.Text += Mid(Me.RichTextBox1.Text, p1 + 1, p2 - p1 + 1) & vbCrLf
            p1 = Me.RichTextBox1.Text.IndexOf("http", p2 + 1)
        Loop
    End Sub
 
End Class