Dim ergebnis As String = ""
 
            For s1 = 0 To 2
                For s2 = 0 To 2
                    For s3 = 0 To 2
                        ergebnis = ergebnis + einleitung(s1) + hauptteil(s2) + _
                          schluss(s3) + Environment.NewLine + _
                          Environment.NewLine
                    Next
                Next
            Next