Private Sub Link_Clicked(sender As Object, _
        e As System.Windows.Forms.LinkClickedEventArgs) Handles _
        RichTextBox1.LinkClicked
 
        Dim linktext As String = ""
 
        With RichTextBox1
            If e.LinkText.Length > 502 Then
                Dim mousepos As Integer = _
                .GetCharIndexFromPosition(.PointToClient(MousePosition))
 
                Dim startpos, endpos As Integer, found As Boolean
                startpos = mousepos : found = False
                While startpos > 0 And Not found
                    startpos -= 1
                    found = .Text(startpos) = " "
                    If found Then startpos += 1
                End While
 
                endpos = mousepos : found = False
                While endpos < .TextLength - 1 And Not found
                    endpos += 1
                    found = .Text(endpos) = " "
                    If found Then endpos -= 1
                End While
 
                .SelectionStart = startpos
                .SelectionLength = endpos - startpos + 1
                linktext = .SelectedText
            Else
                linktext = e.LinkText
            End If
        End With
        System.Diagnostics.Process.Start(linktext)
    End Sub