Imports System

Public Module Module1

    Public Sub Main()

        Dim i, j, hl  As Integer

        dim hl1 as integer

    dim star as string

    star = console.ReadLine()

        console.WriteLine("How long?")

        hl= console.REadline()

        hl1 = hl + 1

    For i = 0 To hl

        For j = 1 To hl1 - i

        Console.Write(star)

        Next

    Console.WriteLine()

    Next

​

Console.ReadLine()

​

    End Sub

End Module