>>890
フォントはStdFontオブジェクト。
そのNameプロパティがフォント名
よって…

Dim frmD As frmDocument
Dim objFont As StdFont

Set frmD = New frmDocument
Set objFont = frmD.rtfText.font
lblFontName.Caption = objFont.Name

では駄目かな？
実際試して無いんで解らないが。

規定のプロパティを付けるところと、
暗黙Variantは止めなさい。