Creo que he dado con ello. Lo pongo aquí por si le sirve a alguien.
Un saludo
Cita:
Label1.Caption = Mid(LabelADesglosar.Caption, 1, 1) 'Primer dígito
Label2.Caption = Mid(LabelADesglosar.Caption, 2, 1) 'Segundo dígito
Label3.Caption = Mid(LabelADesglosar.Caption, 3, 1) 'Tercer dígito