Actividad pública reciente
Ha valorado "Excelente" la respuesta
Que aparezca un año después
Private Sub Text1_LostFocus() Text2.Text = Left(Text1.Text, 6) & Right(Text1.Text, 4) + 1 End