『改行(vbCrLf)』は正確には『復改行』でvbCrとvbLfの2文字です。よって、> If Right(Text1.Text, 4) = vbCrLf & vbCrLf Then・・・改行2回連続の場合では・・・