Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("how many kittens do you want?")

        dim UserGenNum As integer 

        UserGenNum = Console.Readline()

        For n = 1 to UserGenNum

        Console.WriteLine("I love kittens")

    Next n

    End Sub

End Module