Turn from Excel drawn Values into bold text

I created a form to enter information and wrote a simple macro to extract that information into an Email. For easier reading purposes, I wish to turn these Values (such as ActiveSheet.Range("E6").Value) into bold text.

Using Google and this board did not lead me to an answer, so I decided to open this thread.

Minimum example for my code:

    On Error Resume Next
    With OutMail
        .to = "adress@provider.eu"
        .CC = ""
        .BCC = ""
        .Subject = "Title Part 1 : "& ActiveSheet.Range("E6").Value & " / Title Part 2 : "& ActiveSheet.Range("E12").Value
        .Body = "Hallo XXX,"& vbNewLine & vbNewLine & "anbei unser XXXXX:"& vbNewLine & vbNewLine & _
             "----------------------------"& vbNewLine & "AAA Number:  "& _
             ActiveSheet.Range("E6").Value & vbNewLine & "Company: "& _
             ActiveSheet.Range("E7").Value & vbNewLine & "Role:  "& _
             ActiveSheet.Range("E8").Value & vbNewLine & "BBBBB Type:  "& _
             ActiveSheet.Range("E9").Value & vbNewLine  & "Candidate Name:  "& _
             ActiveSheet.Range("E21").Value & vbNewLine & "Send end of month:  "& _
             ActiveSheet.Range("E22").Value & vbNewLine & "External Notes:  "& _
             ActiveSheet.Range("E23").Value & vbNewLine & "Additional Info:  "& _
             ActiveSheet.Range("E24").Value & vbNewLine & "----------------------------"& _
             vbNewLine & vbNewLine & vbNewLine & "Danke euch !"'.Attachments.Add Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$G$24"
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

These ActiveSheet.Range.Values I would need in bold text. Is there any easy implementation?

KR Alex