Sorry - my error . It should be
oRng.Text = "Notification of email arrival" & vbCr & vbCr & _
                                            "Sender: " & olMail.Sender & vbCr & _
                                            "Subject: " & olMail.Subject & vbCr & _
                                            "Attachment: " & oAtt.FileName
which replaces 

oRng.Text = "Notification of email arrival"