Commandbutton versendet Mail mit Betreff aus Excel

Sub Sicherheitsfrage()
Dim Kopf, antwort As String
Dim Stil As Integer
Stil = vbYesNo + vbQuestion + vbDefaultButton2
Kopf = "                                       ***** Sicherheitsfrage ***** "
antwort = MsgBox("                       Haben Sie alle erforderlichen " & vbCrLf & vbCrLf & _
"        Felder ausgefüllt, sind Ihre Angaben vollständig? " & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"  Klicken Sie auf ja, wenn Sie das Mail versenden möchten " & vbCrLf & vbCrLf & _
"Klicken Sie auf nein, um das Formular weiter zu bearbeiten! ", Stil, Kopf)
If antwort = vbNo Then GoTo Ende
If antwort = vbYes Then Email = ("NNF-Umbauten@mgb.ch")
Application.Dialogs(xlDialogSendMail).Show (Email)
Exit Sub
Ende:
End Sub