Oswal:
Parece que tienes demasiadas confusiones. Vamos por partes:
¿Por qué aparece el error "El valor, tipo o contador del argumento de la función es inválido" en la línea
CedE = val(This.txtCedulaEmple.Value) ?
La única posible explicación es que se está untilizando la función VAL() en un campo numérico, cuando sólo se usa para convertir de caracteres a numérico.
POR LO TANTO EL TEXTBOX txtCedulaEmple ES NUMERICO.............................
Sería bueno saber por qué consideras que es de caracteres si ya VFP te está dando a entender que es numérico.
---------------------------------------------------
Si VFP te da a entender que es numérico y no debes usar VAL(), pues te recomiendo que suprimas la función VAL() de esa instrucción.......... Y NOS CUENTES--........