Option Explicit
Sub Test()
If MsgBox("Soll Stahl oder Holz berechnset werden?", vbYesNo + vbQuestion, "Löschabfrage ?") _
= vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.