Imports System

Public Module Module1

    Public Sub Main()

        Dim quoteNew_list as string

 dim increasing as string = ""

    For Each i In quoteNew_list

    increasing +=(i + " ")

    console.writeline(increasing)

    Next    

End Sub

End Module