>>296 部分文字列を比較すればできるだろ。俺はしないけど。

if SameText(Copy(Text1, Pos, Len), Text2) then