Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        dim lstNumbers as New List(of string)()

        lstNumbers.Add("One") 

        lstNumbers.Add("Two")

        lstNumbers.Add("Three") 

        Console.WriteLine("List Created")

        console.WriteLine(" ")

        For Each listItem As String in lstNumbers

        Console.WriteLine("checking list in order:" & listItem ) 

    Next

        dim numItems as integer 

        numItems = lstNumbers.count

        Console.WriteLine("The number of items in this list is " & numItems )

        Console.WriteLine("the lst item in this list is: " & lstNumbers.item(0) )

        Console.WriteLine("the 3rd item in this list is: " & lstNumbers.item(2) )

        For i = 0 To numItems - 1 

        Console.WriteLine(lstNumbers.Item(i) )

Next i

end sub 

End Module