＞197
strIn = 例文
strOut = ""
strWork = Split(strIn, "。")
For Each strLine in strWork
　If InStr(strLine, "ドキュン") Then strOut = strOut & strLine & "。"
Next

199の正規表現を使うなら、コンポーネントを追加しないと。