Dim list As New List(Of String)
list.Add("Car")
list.Add("Boat")
list.Add("Train")

For Each item In list
    Console.WriteLine(item)
Next