Private Sub CommandButton1_Click()
  'Write to three bookmarks named bmA, bmB and bmC the content of three text
  'fields txtA, txtB, txtC
  WriteToBookmark "bmA", txtA
  WriteToBookmark "bmB", txtB
  WriteToBookmark "bmC", txtC
  Unload Me
lbl_Exit:
  Exit Sub
End Sub
Sub WriteToBookmark(strBMName As String, strText As String)
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Bookmarks(strBMName).Range
  oRng.Text = strText
  ActiveDocument.Bookmarks.Add strBMName, oRng
lbl_Exit:
  Exit Sub
End Sub