Excel VBA Butoon in ie explorer

Sub js_www_Bewertung_holen()
js_file = "c:\temp\war.txt"
Close #1
Open js_file For Output As #1
rene_ww = "https://www.ariva.de/zertifikate/suche/index.m?zertart_id=13#eq_underlying_ag=409& _
noscript_min_laufzeit_ende=&noscript_max_laufzeit_ende=&noscript_min_laufzeit_start=& _
noscript_max_laufzeit_start=&noscript_min_ratio=&noscript_max_ratio=&noscript_min_strike=& _
noscript_max_strike=&noscript_min_k_diff_security=&noscript_max_k_diff_security=& _
noscript_min_k_diff_security_rel_pa=&noscript_max_k_diff_security_rel_pa=& _
noscript_min_k_diff_strike=&noscript_max_k_diff_strike=&noscript_min_k_diff_strike_rel=& _
noscript_max_k_diff_strike_rel=&noscript_min_k_implied_vola=&noscript_max_k_implied_vola=& _
noscript_min_k_omega=&noscript_max_k_omega=&noscript_min_k_innerer_wert=& _
noscript_max_k_innerer_wert=&noscript_min_k_leverage=&noscript_max_k_leverage=&noscript_min_k_aufgeld=&noscript_max_k_aufgeld=&noscript_min_k_aufgeld_rel=&noscript_max_k_aufgeld_rel=&noscript_min_k_aufgeld_rel_pa=&noscript_max_k_aufgeld_rel_pa=&noscript_min_k_delta=&noscript_max_k_delta=&noscript_min_k_theta=&noscript_max_k_theta="
rene_ww = rene_ww & "&noscript_min_k_zeitwert=&noscript_max_k_zeitwert=& _
noscript_min_k_spread_abs=&noscript_max_k_spread_abs=&noscript_min_k_spread_hom=& _
noscript_max_k_spread_hom=&noscript_min_k_spread_rel=&noscript_max_k_spread_rel=&eq_typ=long& _
search_id=0ca5845ef250e2d284ae377deb2bb902"
Range("c15") = rene_ww
Dim Response As String
' Zugriff aufs Web
Dim WebBrowser As Object
Set WebBrowser = CreateObject("InternetExplorer.Application")
WebBrowser.Navigate rene_ww
' Warten, bis die Seite geladen ist
Do While WebBrowser.busy
DoEvents
Loop
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Set frm = WebBrowser.Document.getElementsByname("pagenav26377")
' hier passier nichts bzw. der Button wird nicht gefunden
For Each e In frm
If (e.getAttribute("value") = "2") Then
e.Click
Exit For
End If
Next e
Response = WebBrowser.Document.Body.outerText
Print #1, Response
End Sub