VB2008 ラムダ式 サンプル

VB2008のラムダ式を少し覚えました。
下記はサンプルソースです。
今まで、ForEach Nextステートメントなどを使用して複数行で書いていたソースが
１行で表現できます。

    'Whereメソッド サンプルソース
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str() As String = {"レモン", "りんご", "いちご", "バナナ", "みかん"}
        Dim Name = str.Where(Function(s) s = "いちご")
        MsgBox(Name(0)) '配列で返します。　'"いちご"　が表示されます。
    End Sub
    'Findメソッド サンプルソース
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim str() As String = {"レモン", "りんご", "いちご", "バナナ", "みかん"}
        Dim Name = Array.Find(str, Function(s) s = "いちご")
        MsgBox(Name)    '見つかったはじめの1件目の値を返します。　'"いちご"　が表示されます。
    End Sub
    'Existsメソッド サンプルソース
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim str() As String = {"レモン", "りんご", "いちご", "バナナ", "みかん"}
        Dim Name = Array.Exists(str, Function(s) s = "いちご")
        MsgBox(Name)    '配列に指定された値が含まれるか判定します。　'"True"　が表示されます。
    End Sub