Module1

REM  *****  BASIC  *****

function getScriptVersion()

	getScriptVersion = 1.04
end function


function contains(str1 as Variant, str2 as Variant)
	
	Dim oDocScriptProvider As Object, oScript As Object

	oDocScriptProvider = ThisComponent.getScriptProvider()
	oScript = oDocScriptProvider.getScript("vnd.sun.star.script:JSLib1.StringContains.js?language=JavaScript&location=document")
	
	contains = oScript.invoke(Array(str1, str2), Array(), Array())
end function


Sub TestJsCall

	Dim oDocScriptProvider As Object, oScript As Object
	Dim result As Variant

	oDocScriptProvider = ThisComponent.getScriptProvider()
	oScript = oDocScriptProvider.getScript("vnd.sun.star.script:JSLib1.StringContains.js?language=JavaScript&location=document")

	result = oScript.invoke(Array("Apache OpenOffice is the best", "OpenOffice"), Array(), Array())
	MsgBox("Term exists : " & result) 
End Sub

StringContains.js

// in JSLib1

ARGUMENTS[0].indexOf(ARGUMENTS[1]) > -1;