Inserting text from VBA textbox into part of a string

[macropod]

Quite simple really. For example:

Private Sub CommandButton1_Click() 
Dim Rng As Range, StrOut As String
If Me.OptionButton2.Value = True Then
    StrOut = "EXAMPLE SENTENCE 1" & Chr(11) & vbTab & _
            "EXAMPLE SENTENCE 2" & Chr(11) & _
            "EXAMPLE SENTENCE 3" & vbCr & " " & Me.TextBox1.Text
Else
    StrOut = ""
End If
With ActiveDocument
    Set Rng = .Bookmarks("BOOKMARK2").Range
    Rng.Text = StrOut
    .Bookmarks.Add "BOOKMARK2", Rng
End With
End Sub

More flexibly:

Private Sub CommandButton1_Click()
Dim BkMk As String, StrTxt As String
Call UpdateBookmark("BOOKMARK1", Me.TextBox1.Text)
If Me.OptionButton2.Value = True Then
  StrTxt = "EXAMPLE SENTENCE 1" & Chr(11) & vbTab & _
            "EXAMPLE SENTENCE 2" & Chr(11) & _
            "EXAMPLE SENTENCE 3" & vbCr & " " & Me.TextBox1.Text
Else
  StrTxt = ""
End If
Call UpdateBookmark("BOOKMARK2", StrTxt)
End Sub


Sub UpdateBookmark(BkMk As String, StrTxt As String)
Dim Rng As Range
With ActiveDocument
  Set Rng = .Bookmarks(BkMk).Range
  Rng.Text = StrTxt
  .Bookmarks.Add BkMk, Rng
End With
End Sub