There were three changes (Not sure what happened to the layout)
Code:
With CheckShape.TextFrame2.TextRange.Font
.Name = "Times New Roman"
.Size = 60
.Bold = msoTrue
.Fill.ForeColor.RGB = vbBlack
.Shadow.Visible = msoFalse 'Add other attributes as needed.
End With