フィールドの値を取得(ゲット)する

開いている文書の値を取得し、メッセージボックスに表示します。

取得フィールド名：test

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  Msgbox doc.test(0)
End Sub

以上