Dim aux As WebViewExtras
Sub Activity_Create(FirstTime As Boolean)
(...)
aux.addJavascriptInterface(WebView1, "B4A")
(...)
End sub
Sub WebView1_PageFinished (Url As String)
(...)
Javascript="B4A.CallSub('ProcessHTML', false, javascriptCodeHereToGetAValue")"
aux.executeJavascript(WebView1, Javascript)
(...)
End sub
Sub ProcessHTML(Html As String)
'Actions here
End Sub