Private Sub CommandButton1_Click()
Dim oCtr As Control
Dim oRng As Word.Range
  For Each oCtr In Me.Controls
    Select Case TypeName(oCtr)
      Case "CheckBox"
        Select Case oCtr.Name
          Case "CheckBox1"
            If Controls(oCtr.Name).Value = True Then
              Set oRng = ActiveDocument.Bookmarks("bmCB1").Range
              oRng.Text = "CheckBox1 is Checked"
              ActiveDocument.Bookmarks.Add "bmCB1", oRng
            End If
        End Select
      Case "TextBox"
        
      Case "ComboBox"
        
      Case "ListBox"
        
    End Select
  Next oCtr
  Unload Me
End Sub