Email per Outlook versenden - Fehler

Sub Email()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim Email_to As String
Dim Email_cc As String
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = Email_to                         'Emailempfänger im to
.cc = Email_cc                         'Emailempfänger im CC
.Subject = Betreff
.Body = Text
.Display
.send
End With
MsgBox ("Eine Email wurde erfolgreich verschickt!")
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub