VB.Netで複数のテキストボックスに対し、Nullチェックを掛けるサンプルをサクッと書いてみた。

gistfile1.vb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim count = Me.Controls.Cast(Of Control)().Count(Function(c) (TypeOf c Is TextBox) AndAlso DirectCast(c, TextBox).Text = "")
        If (count > 0) Then
            MessageBox.Show("エラー")

        End If

    End Sub
End Class

これとかどうでしょう。

Dim count = Me.Controls.Cast(Of Control)().Count(Function(c) (TypeOf c Is TextBox) AndAlso DirectCast(c, TextBox).Text = "")

おお！ありがとうございます。ループが無くなりすっきりしたコードに成りますね。
条件をラムダ式で渡しているのですか。ふむふむ。

ちなみに、上記はCountメソッドにラムダで絞り込み条件与えてますが、池田さんが書かれたようにWhereで絞った結果に対してCountする場合は以下になるかと思います。

Dim count = Me.Controls.Cast(Of Control)().Where(Function(c) (TypeOf c Is TextBox) AndAlso DirectCast(c, TextBox).Text = "").Count()

その時のコンテキストに合わせて意味が分かりやすいほうで書けばよいかと思いますー。