[OSのVer]：WindowsXP　　　　[VBのVer]：VB6

お世話になります。
ヘルプには「選択されているテキストに複数のフォントが含まれている場合、
SelFontName プロパティは Null を返します」とありましたので、以下のように
やってみましたがうまくいきませんでした。
どのようにすればいいのでしょうか？

Private Sub RichTextBox1_SelChange()

If RichTextBox1.SelFontName = Null Then
    TextBox1.Text = "複数のフォントが含まれています"
End If
　

# 回答ではありません。

ここはVB.NET用の掲示板です。

質問の内容に関しては、文字列の長さを調べるか、空文字との
比較をするか、などしてください。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
> # 回答ではありません。
>
> ここはVB.NET用の掲示板です。
>
> 質問の内容に関しては、文字列の長さを調べるか、空文字との
> 比較をするか、などしてください。

掲示板違いですみませんでした。
ヒントありがとうございます。