Function LSContains(teststring As String, litmusstring As String) As Integer
	Dim posstart As Long
	
	LSContains = 0
	If (teststring = "") Then
 		Exit Function
	End If
	If (litmusstring = "") Then
 		Exit Function
	End If	posstart = Instr(1 , teststring, litmusstring, 5 ) 
	If ( posstart > 0) Then
		' found
		LSContains = 1
	Else
		' not found
	End If 
End Function