estou com dificuldades na formataçao de uma data na textbox 

Private Sub TextDataRecibo_AfterUpdate()
'TextDataRecibo = Selection.NumberFormat = Format(" dd"" de ""mmmm"" de ""yyyy")
TextDataRecibo = Format(" dd"" de ""mmmm"" de ""yyyy")
End Sub