Code: Select all
Sub CheckEmptyTB()
Dim ctr As Control
For Each ctr In Me.Controls
If TypeOf ctr Is TextBox Then
MsgBox "Empty TextBox!"
ctr.SetFocus
Exit Sub
End If
Next ctr
End Sub