Como pesquisar valores nos elementos de um array usando o método Find e um predicate

'Este exemplo mostra como pesquisar um valor em um
'array usando o método Find e um predicate.

'Neste exemplo conseguiremos obter a primeira ocorrência
'de um elemento que contenha uma string terminando com
'"aulo". Se o valor não for encontrado, a string de
'resultado terá o valor Nothing

Module Module1
  Sub Main()
    ' cria um array de strings
    Dim cidades() As String = {"Goiânia", "Cuiabá", "Curitiba", _
      "São Paulo", "Florianópolis"}

    'obtém a primeira ocorrência do elemento
    'que contenha uma string terminando com "aulo"
    Dim cidade As String = Array.Find(cidades, AddressOf Encontrar)
    If cidade <> Nothing Then
      Console.WriteLine("O valor existe em algum dos elementos")
    Else
      Console.WriteLine("O valor não existe nos elementos")
    End If

    Console.ReadKey()
  End Sub

  Private Function Encontrar(ByVal str As String) As Boolean
    If str.EndsWith("aulo") Then
      Return True
    Else
      Return False
    End If
  End Function

End Module