Imports System

Public Module Module1

    Public Sub Main()

        Dim Num, Count As Integer

        Console.Write("Pick how many keywords: ")

        Num= CInt(Console.ReadLine())

        Dim Keyword(Num) As String

        For Count = 1 To Num

            Console.Write("Enter Keyword: ")

            Keyword(Count)=Console.ReadLine()

        Next Count

        For Count= 1 To Num

            Console.WriteLine("Why is " & Keyword(Count) & " important?")

            Console.WriteLine(" ")

        Next Count

    End Sub

End Module