リッチテキストはNullの状態で既にある大きさの領域を持っています。 フィールドのサイズを調べて、Nullと同じ大きさなら未入力として判定できます。 Dim item As Variant Set item = NotesDocument.GetFirstItem("リッチテキストフィールド名") If (item.ValueLength = ??) Then Messagebox "リッチテキスト未入力" End If リッチテキストフィールドのNull値については、ItemにSetした後でValueLengthの値をメッセージBOXなどで表示させてみるのが確実です。 文書のプロパティからみたフィールドサイズとは異なる場合もありましたので、確実性のある方をオススメします。