Example 1:

Dim lengths() As Integer = { 1, 3, 5, 7, 9, 7, 5, 3, 1 }
Dim stringCollection As IEnumerable(Of String) = _
    lengths.Select(Function (i) "".PadRight(i, "x"C))

For Each s In stringCollection
    Console.WriteLine(s)
Next

Example 2:

Dim dbls() As Double = { 1.5, 3.2, 5.2, 7.3, 9.7, 7.5, 5.0, 3.2, 1.9 }
Dim ints As IEnumerable(Of Integer) = _
    dbls.Select(Function(d) CInt(d))
For Each i In ints
    Console.WriteLine(i)
Next

Example 3:

Dim xmlDoc = _
    <Root>
        <Child>abc</Child>
        <Child>def</Child>
        <Child>ghi</Child>
    </Root>
Dim values As IEnumerable(Of String) = _
    xmlDoc.Elements().Select(Function(e) CStr(e))
For Each s In values
    Console.WriteLine(s)
Next