Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Then print them with increasing number of words like:

        'Our

        'Our greatest

        'Our greatest glory

        '…...

        dim quote as string = " Our greatest glory is not in never falling, but in rising every time we fall."

        dim splitquote() as string

        splitquote = quote.split(quote)

        dim i as integer

        for i = 1 to 15

            For i2 = 0 to i

                console.write(splitquote(i2) + " ")

            next

​

            console.writeline()

        Next

    End Sub

End Module

​