โค้ด:

1.         For Each c As Control In Me.Controls
   
2.             If TypeOf (c) Is TextBox AndAlso c.Text = "" Then
   
3.                 MsgBox("TextBox is empty: " & c.Name)
   
4.                 Exit For
   
5.             End If
   
6.         Next

โค้ด:

1.         Dim empty = Me.Controls.OfType(Of TextBox)().Where(Function(txt) txt.Text.Length = 0)
   
2.         If empty.Any Then
   
3.             MsgBox(String.Format("กรุณาป้อนข้อมูลลงใน: {0}", String.Join(", ", empty.Select(Function(txt) txt.Name))))
   
4.         End If