ارور not function

[magicmood 0]

دوستان عزیز ادرس هرسایتی میدم ارور میده

این سورس :

ub Globals

	Dim WebViewExtras1 As WebViewExtras
	Dim HttpJob1 As HttpJob
	Dim WebView1 As WebView
	Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("l1")
	HttpJob1.Initialize("MyJob1",Me)
	WebView1.Initialize("WebView1")
	WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
	WebViewExtras1.addWebChromeClient(WebView1,"")
	WebView1.LoadUrl("https://www.google.com/")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub WebView1_pagefinished (url As String)
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('Process_HTML',true,document.documentElement.outerHTML)")
End Sub

Sub Process_HTMl(HTML As String)
	HTML = HTML.Replace("""","'")
	EditText1.Text = HTML
End Sub

اینم ارور : 

Uncaught TypeError: B4A.CallSub is not a function in https://www.google.com/ (Line: 1)

کتابخانه WebViewExtras پاک کردم از سایتای مختلف دنلود کردم مشکل برطرف نشد

خود برنامه b4a پاک و دوباره نصب کردم مشکل برطرف نشد 

در انجمن سرچ کردم نتیجه ای حاصل نشد

ادرس سایتای مختلف تست کردم بازم برطرف نشد 

این ارور چطوری باید رفع کنم؟

ممنون