Remove the "Set" statement.
HTML Code:
oCCTitle = ActiveDocument.ContentControls(i).Title
HTML Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim strCCTitle As String
Dim oCC As ContentControl
Set oCC = ActiveDocument.ContentControls.Add
oCC.Title = "This is my title"
strCCTitle = oCC.Title
MsgBox strCCTitle
End Sub