visual basic kod parçalama ve listbox1 ekleme sorunu

merhba arkadaşlar ben webbrowserde facebook hesabıma giriyorum ve https://m.facebook.com/groups/ buradaki ekli olduğum gurup linklerini alıp listbox'a eklemem lazım

 Dim kaynak = WebBrowser1
Dim parse() As String
parse = Split(kaynak, "Üyesi Olduğun Gruplar")
Dim parses() As String
parses = Split(parse(1), "</table>")


Dim kaynak1 = parse(1)
Dim parse1() As String
parse1 = Split(kaynak1, "groups/")
Dim parses1() As String
parses1 = Split(parse1(1), "?")
Label1.Text = parses1(1)

        ''bu kod çalıştığında sadece 1 tane gurup linki ala biliyor ama ben  hepsini alsın  ve listbox1 e eklesin istiyorum

http://prntscr.com/r72ocx
Resimde gösterdiğim şekilde div^lerin içersinde listleleniyor onları aldırtman lazım.