Написание письма 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