Imports System

​

Public Module Module1

    Public Sub Main()

        Dim dollarSign As Char = "$"c

        For counter = 5 To 1 Step -1

            Console.WriteLine(New String(dollarSign, counter))

        Next

    End Sub

End Module