Sub DriveImage()
If MsgBox("Soll die Sicherung von Laufwerk C nun durchgeführt werden?", _
  vbInformation + vbYesNo, "DriveImage XML") = vbYes Then
    Shell ("C:\Programme\DriveImage XML\dixml.exe /bC /td:\BACKUP_" & CStr( _
    Date))
    End
Else
    End
End If
End Sub