Hola
Según comentas, es que no estás llamando a la función ValCad()
Cita: Call ValidaCadenaInvalida(varMATT)
Call ValidaCadenaInvalida(varPAT)
Call ValidaCadenaInvalida(varMAT)
Call ValidaCadenaInvalida(varNOM)
Call ChecaCadena(varMATT)
Call ChecaCadena(varPAT)
Call ChecaCadena(varMAT)
Call ChecaCadena(varNOM)
Suerte