Imports System
Imports System.Linq
Imports System.Collections.Generic
Module Program
Sub Main()
' Create a list that can contain mixed types
Dim obj As New List(Of Object)()
' Add items of different types
obj.Add("US")
obj.Add("UK")
obj.Add(17)
obj.Add(3.14)
' Convert all items to string
Dim result As IEnumerable(Of String) = obj.Select(Function(x) x.ToString())
For Each item In result
Console.WriteLine(item)
Next
End Sub
End Module
' run:
'
' US
' UK
' 17
' 3.14
'