Conservar formato de textbox al copiar en celda Excel

Me estoy volviendo loco con esto, y creo que tiene que ser muy fácil, pero no logro dar con ello.

Tengo un textbox que en el evento Exit formateo el Textbox.

Private Sub TextImporte_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextImporte = Format(CDec(TextImporte), "0.00€")
End Sub

Luego me llevo el valor del textbox a una celda Excel.

 a1.Range("AI" & cont) = form_FRASRenting.TextImporte

Sin embargo no consigo que lo copie con el formato, ni como número ni como moneda.