Lancé un code situé dans un autre private sub

Bonsoir,

A l'init de mon USF, je remplie un textbox par une valeur provenant d'une cellule...
Une fois cette valeur renseigné et le USF affiché, je voudrai lancé la code situé dans la private sub du textbox... mais comment l'appeler ???

Private Sub ATA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(ATA) = 4 Then
ATA = Mid(ATA, 1, 2) & ":" & Mid(ATA, 3, 2)
DELTA = Format(CDate(ATA) - CDate(STA), "hh:mm")
end sub


Private Sub UserForm_Initialize()
ATA = Format(ActiveCell.Offset(0, 2), "hhmm")
'LANCER ATA_EXIT pour que DELTA soit rempli ....
end sub


Merci d'avance pour votre aide
SLts
Guillaume