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