formattazione textbox

Salve a tutti, ho un piccolo problema di formattazione su una textbox
di una userform
Con questa macro
Sub Avvia_Form()
UserForm1.TextBox1.Value = Sheets("HomePage").[A5]
End Sub in un modulo
visualizzo un valore di una cella attiva A5 formattata con una data es gggg, gg/mm/aaaa. Il problema è che sulla textbox viene visualizzato solo il formato gg/mm/aaaa. Come si potrebbe risolvere?
Grazie a tutti
Ciao

Allega un tuo file di esempio che evidenzi il problema.

Ciao il formato nella prima textbox è quello voluto, mentre quello della cella attiva in giallo non si può cambiare (nella textbox)

Potresti provare con:



Giuseppe

Ciao Giuseppe Ok! Funziona benissimo.
Grazie