Text1.MultiLine は、Trueですか、Falseですか?Falseだと、If Right(Text1.Text, 4) = vbCrLf & vbCrLf Then・・・改行2回連続の場合は、ありえないようです。Trueなら、大吉末吉さんの言われるとおりですね(VB6で確認)