[HELP] Click Cepea lead survey in VB

<li class="icon_mobile"><a id="survey_0" class="offer_link" onclick="clickSurvey(82349880899, 0); awaitLead('survey', '82349880899'); return false;" bt-xtitle="" title="">Name</a>


</li>

you serials.c om/serial/adobe-photoshop-cs5-extended/189671

webBrowser1.document.GetElementById("survey_0").InvokeMember("click");

Object reference not set to an instance of an object.

  Dim links As System.Windows.Forms.HtmlElementCollection
            Dim b As String
            links = WebBrowser1.Document.Links
            For i = 0 To links.Count - 1
                b = links(i).GetAttribute("href")
                'check for the right link
                If b.Contains("atribute") Then
                    WebBrowser1.Navigate(b)
                End If
            Next

　Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
　　　　　　For Each webpageelement As HtmlElement In allelements
　　　　　　　　If webpageelement.GetAttribute("value") = "atribut" Then
　　　　　　　　　　webpageelement.InvokeMember("click")
　　　　　　　　End If
　　　　　　Next

Public Function GetStringBetween(ByVal InputText As String, _
 ByVal starttext As String, _
 ByVal endtext As String)

  Dim lnTextStart As Long
  Dim lnTextEnd As Long

  lnTextStart = InStr(StartPosition, InputText, starttext, vbTextCompare) + Len(starttext)
  lnTextEnd = InStr(lnTextStart, InputText, endtext, vbTextCompare)
  If lnTextStart >= (StartPosition + Len(starttext)) And lnTextEnd > lnTextStart Then
    GetStringBetween = Mid$(InputText, lnTextStart, lnTextEnd - lnTextStart)
  Else
    GetStringBetween = "ERROR"
  End If
    End Function

http://www.*******.com/mygateway/mygateway_iframe_loader.php?pub=11296&subid=your_ip_here&gateid=MTA4MjM%3D&ref=&cacheurl=aHR0cDovL3d3dy55b3VzZXJpYWxzLmNvbS9zZXJpYWwvYWRvYmUtcGhvdG9zaG9wLWNzNS1leHRlbmRlZC8xODk2NzE%3D