Multiple formats inside single text box (activex)

Hello again.

I'm having trouble keeping the formatting correctly in a text box through VBA. I'm sure this is something simple, but I'm the intern that got stuck with trying to program for the break since they know I've taken classes on the subject. I've been able to figure out a lot, which I owe a great amount of thanks (THANK YOU!) to this forum and the handy search function. However, I couldn't find any pertinent information regarding this topic.

End goal: To have the first word of a text box larger, underlined, and bolded.

Problem: It only formats it Calibri at 24 point with no special formatting as indicated in the code.

Worksheets("H&P Area Map Updated").Select
    Sheet6.txtMidCon.Activate
        With Sheet6.txtMidCon
            .Text = ""
            .Text = "Mid-Continent (" & Str(MCR) & " Rigs) " & MidCon
            With Selection.Characters(Start:=1, Length:=13).Font
                .Name = "Calibri"
                .Size = 40
                .Underline = xlUnderlineStyleSingle
                .FontStyle = "Bold"
            End With
            With Selection.Characters(Start:=14, Length:=1000).Font
                .Name = "Calibri"
                .Size = 24
            End With
        .BorderColor = RGB(113, 147, 255)
        .BorderStyle = fmBorderStyleSingle
        .WordWrap = True
        .MultiLine = True
        .AutoSize = False
        .Width = 425
        .Height = Len(MidCon)
        End With

Thank you for looking,

Cody Martin