テキストボックス入力中、最後に改行がいくつ行われたかを判定し、
次のイベントを発生させたいと思っています。
しかし、下記の単純な命令がうまく機能せず、困っています。
どこが悪いのか、ご教授をいただけませんでしょうか？

'=======================================================================
Private Sub Text1_Change()
If Right(Text1.Text, 2) = vbCrLf & vbCrLf Then・・・改行２回連続の場合
If Right(Text1.Text, 1) = vbCrLf Then・・・改行１回の場合
'=======================================================================

vbCrLfを"aaa"など、具体的なワードにするとうまく動きます。
基本的な話で申し訳ありませんが、
よろしくお願い致します。

『改行（vbCrLf）』は正確には『復改行』でvbCrとvbLfの2文字です。

よって、
> If Right(Text1.Text, 4) = vbCrLf & vbCrLf Then・・・改行２回連続の場合
では・・・

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