Imports System

Imports System.Linq

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim Reasons As New List(Of String)

        Reasons.Add("apple 1")

        Reasons.Add("apple 2")

        Reasons.Add("banana")

        Reasons.Add("pear")

        Reasons.Add("apple 3")

        Console.Write(Reasons.FindAll(Function(x) x.Contains("apple")))

        'Console.Write(Reasons.Find(Function(x) x = "test"))

    End Sub

End Module