I tried to create a vba codes to help me send emails to different clients.

I put all email body in a text box in excel with specific formatting. The issue I have now is when the email body inserted into an email the body format got lost.

Question : How can I keep the format of the text box?

```
Sub test_email_template()
    Dim name, email, body, subject, copy, place, business As String

    name = Range("B4").Value
    email = Range("C4").Value
    body = Format(ActiveSheet.TextBoxes("TextBox 1").Text)
    subject = " Payment Summary Reports"
    copy = Range("D2").Value

'replace name'
body = Replace(body, "Email Title", name)

Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail

         .to = email
         .cc = copy
         .subject = subject
         .body = body

         .display

    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    MsgBox "Email(s) Sent!"
End Sub

```

Below is the text box format I want to keep

[![enter image description here](https://i.stack.imgur.com/ZlKPp.png)](https://i.stack.imgur.com/ZlKPp.png)