QUEBRAR LINHA DA TEXTBOX AO ENVIAR EMAIL

    If txtEmail1.Text <> [Ô][Ô] Then   
        Dim iMsg As CDO.Message
        Dim iConf As CDO.Configuration
        Dim Flds
        Dim Nome, Cliente, Conteudo As String
        Dim Assunto As String
        Dim Email As String
        Dim Senha As String
        Dim schema As String
            
            Assunto = txtAssunto.Text
            Nome = txtApelido.Text
            Cliente = txtEmail1.Text
            Conteudo = txtTexto.Text
            Email = txtCEmail.Text
            Senha = txtSenha.Text
            
        Set iMsg = CreateObject([Ô]CDO.Message[Ô])
        Set iConf = CreateObject([Ô]CDO.Configuration[Ô])
        Set Flds = iConf.Fields
    
        schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
        Flds.Item(schema & [Ô]sendusing[Ô]) = 2
        Flds.Item(schema & [Ô]smtpserver[Ô]) = [Ô]smtp.gmail.com[Ô]
        Flds.Item(schema & [Ô]smtpserverport[Ô]) = 465
        Flds.Item(schema & [Ô]smtpauthenticate[Ô]) = 1
        Flds.Item(schema & [Ô]sendusername[Ô]) = Email
        Flds.Item(schema & [Ô]sendpassword[Ô]) = Senha
        Flds.Item(schema & [Ô]smtpusessl[Ô]) = 1
        Flds.Update
    
        With iMsg
        .To = Cliente
        .From = Email
        .Subject = Assunto
        .HTMLBody = Nome & [Ô],[Ô] & [Ô] [Ô] & Conteudo
        [ô].AddAttachment [Ô]C:\Relatorio.xlsx[Ô]
        Set .Configuration = iConf
        .Send
        End With
        
        Set iMsg = Nothing
        Set iConf = Nothing
        Set Flds = Nothing
    End If