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