
sii sabes yo tengo el mismo problema y tu codigo sta correcto solo me mete un error en la parte final :
Set RFC = RTrim(RFC) + CONVERT(Char, FECHANACIMIENTO, 12)
RFC = RTrim(RFC) + Format(FECHANACIMIENTO, "yymmdd")
calcular_rfc = RFC
en la parte de CONVERT y solo me toma la primira letra del apellido paterno no me sta agarrando la primer vocal despues de la letra inicial del apellido paterno y tmb si no tengo el apellido materno no me da x me duplica la letra del apellido paterno y por ultimo en RFC en las que se forman palabras extrañas como lo es caca se debe de poner en la ultima a una x en lugar de la a
bno y si puedes resolverlo staria genial ya intente y no puedo corregir

lo que a ti te hace falta es enlazar todas las cajas de texto a te recomiendo que sigas los nombres que trae tu codigo asi no batallaras tanto