Str = Editor.GetText aryStr = Split(Str, Chr(10)) sSearchText = InputBox("H") iLength = Len(sSearchText) For i = 0 To UBound(aryStr) If InStr(aryStr(i), sSearchText) <> 0 Then sSearchStr = aryStr(i) sConStr = sConStr & sSearchStr & Chr(10) End If Next Mana.NewEditor Str = Editor.SetSelText(sConStr)