Private Sub Command1_Click()

    Dim i As Integer
    Dim str As String
    
    List1.Clear

    For i = 0 To WebBrowser1.Document.links.length - 1
        str = WebBrowser1.Document.links.Item(i)
        If Left$(LCase(str), 4) = "http" And InStr(1, LCase(str), ".persianblog.ir") > 0 Then
            List1.AddItem (WebBrowser1.Document.links.Item(i))
        End If
    Next i

    MsgBox "Process Completed"
    
End Sub

http://persianblog.ir/weblogs.aspx