Imports System

Imports System.Collections.Generic

Imports System.Linq

​

Public Module Module1

    Public Sub Main()

        Dim data As IEnumerable(Of (String, String, String)) = { ("a", "b", "c"), ("1", "2", "3")}

        Dim target As String = "1"

                'Search the collection for the first match             

        Dim result = data.First(Function(record) target.Equals(record.Item1))

        Console.WriteLine(result.Item1)

        Console.WriteLine(result.Item2)

        Console.WriteLine(result.Item3)

    End Sub

End Module