Código (vb) [Seleccionar]
Option Explicit
Private Sub Command1_Click()
If Not TextComplete(Edad) Then Exit Sub
'Aquí completa las celdas.
MsgBox "Siguiente Instrucción"
End Sub
Function TextComplete(TextBox As TextBox) As Boolean
TextComplete = IIf(LenB(TextBox.Text), True, False)
If Not TextComplete Then MsgBox "Falta completar: " & TextBox.Name
End Function