Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 2 step1
            System.Console.WriteLine("MORESCO-1")
        Next intLoopIndex
    End Sub
End Module