Esto no tendria que enseñarte por que lucrarias
Código:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = "http://urlcuandohaceclickenelbanner" Then
'esto sifnifica que hiso click en el banner
End If
End Sub
Pero hoy estoy bueno