フィールドの値を入力(セット)する

以下は、開いている文書において、指定フィールドの値を変更します。
「test」フィールドに「テスト」と入力します。

対象フィールド名：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
 doc.test = "テスト"
End Sub

以上