Private Sub Demo_Click()
Dim output As String
Dim Tage As Currency
output = "...AT" & vbCrLf
output = output & String(5, "=") & vbCrLf
 
If Zuschnitte.Text < 2 Then
  Tage = 5
Else
  Tage = 7
End If
If seqbau.Value = True Then
output = output & "Sequenzieller Aufbau"
Tage = Tage * 2
Else
 output = output & "Normaler Aufbau"
End If
MsgBox output & FormatCurrency(Tage)
End Sub