Написание письма outlook - VB

Формулировка задачи:

Добрый день! Нужно, чтобы в письмо вставлялся определенный текст. Нужные предложения для письма выбирают по чекбоксам. Не могу понять почему у меня в письме отображается текст только последнего чекбокса

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
 Dim objOL As Object
    Dim objMail As Object
    Set objOL = CreateObject("Outlook.Application")
    Set objMail = objOL.CreateItem(0)
        With objMail
            .To = "removed@mail.ru"
            .CC = "removed@mail.ru"
            If CheckBox1 = True Then
            .Body = "dxfs"
           End If
           If CheckBox2 = True Then
            .Body = "чясячс"
           End If
            If CheckBox3 = True Then
            .Body = "итоо"
            End If
            If CheckBox4 = True Then
            .Body = "опро"
            End If
            If CheckBox5 = True Then
            .Body = "вапапор"
            End If
            .Subject = "куку"
            .Display
        End With
    Set objMail = Nothing
    Set objOL = Nothing
End Sub

Решение задачи: «Написание письма outlook»

textual
                            Листинг программы 
                        
.Body =.Body & "чясячс" & vbNewLine