Private Sub UserForm_Initialize()
  With cboPosition
    .AddItem "Nub"
    .AddItem "Journeyman"
    .AddItem "Engineer"
  End With
End Sub
Private Sub cmdOK_Click()
  If cboPosition.Value = "Engineer" Then
    WriteToBM "Grade", "E"
  End If
  Hide
End Sub
Sub WriteToBM(strName As String, strText As String)
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Bookmarks(strName).Range
  oRng.Text = strText
  ActiveDocument.Bookmarks.Add strName, oRng
End Sub