vb.net - VB.NET述語配列検索

Question

Array.Find を使用して、次を VB.NET 述語に変換するにはどうすればよいですか?

Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo
    '
    Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
    '
    For Each Culture As Globalization.CultureInfo In AllCultures
        If Culture.TwoLetterISOLanguageName = Code Then
            Return Culture
        End If
    Next
    '
    Return Nothing
    '
End Function

Answer 1

Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo
    Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
    Return Array.Find(AllCultures, Function(s) s.TwoLetterISOLanguageName = Code)
End Function