Dim i As Integer
        Dim cadena As String = ""
        Dim n As Integer
        n = 5
        For i = 1 To n
            cadena &= StrDup(i, "*") & vbCrLf
        Next
        MsgBox(cadena)