Imports System

Public Module Module1

    Public Sub Main()

        Dim texto = New String("P", 5)

        Console.WriteLine(texto)

    End Sub

End Module