For example:
Dim BkMkRng As Word.Range, RngTmp As Word.Range, StrBkMk As String, i As Long
i = (cbObjectivesFamilyIncome.Value * 1 + cbObjectivesBuyHouse.Value * 2)
StrBkMk = "bmObjectives"
With ActiveDocument
Set BkMkRng = .Bookmarks(StrBkMk).Range
Select Case i
Case 0
BkMkRng.Text = vbNullString
Case 1
Set BkMkRng = .AttachedTemplate.BuildingBlockTypes(wdTypeQuickParts). _
Categories("SL-Objectives").BuildingBlocks("FamilyIncome").Insert(BkMkRng, True)
.Bookmarks.Add StrBkMk, BkMkRng
Case 2
Set BkMkRng = .AttachedTemplate.BuildingBlockTypes(wdTypeQuickParts). _
Categories("SL-Objectives").BuildingBlocks("FamilyIncome").Insert(BkMkRng, True)
.Bookmarks.Add StrBkMk, BkMkRng
Case 3
Set BkMkRng = .AttachedTemplate.BuildingBlockTypes(wdTypeQuickParts). _
Categories("SL-Objectives").BuildingBlocks("FamilyIncome").Insert(BkMkRng, True)
Set RngTmp = BkMkRng.Duplicate
RngTmp.Collapse wdCollapseEnd
Set RngTmp = .AttachedTemplate.BuildingBlockTypes(wdTypeQuickParts). _
Categories("SL-Objectives").BuildingBlocks("FamilyIncome").Insert(RngTmp, True)
BkMkRng.End = RngTmp.End
.Bookmarks.Add StrBkMk, BkMkRng
End Select
End With