Dim searchStr As String = "all good men"
Dim k As Int = bbcvtext.IndexOf(searchStr)
Dim stringToPhrase As String = bbcvtext.substring2(0, k + searchStr.length)
BBCodeViewX.text = stringToPhrase 'a temporary BBCodeView
'get height of contents of BBCodeViewX
'scroll the full string BBCOdeView1 to the height found above