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

