I am a novice user to VBA. With the code you supplied, what needs to be changed? just the text in red?

Dim Rng As Range
Set Rng = ActiveDocument.Bookmarks("SomeBookmark").Range
With Rng
.Text = TextBox1.Text
.Font.Bold = True
End With
ActiveDocument.Bookmarks.Add "SomeBookmark", Rng