Sistema de Cadastro em Excel VBA #01

Excel 2010

Private Sub UserForm_Initialize()

Me.txdata.Value = Date 'retorna a data atual'

End Sub