Du suchst das?
Sobald die Userform geöffnet wird, wird in Textbox1 das Datum eingetragen.
Oder soll es über einen Button gehen?!
Nähere Infos wären gut :)
Sonst gern nochmals melden.

Diesen Code einfach ins Userform schreiben, "TextBox1" eventuell anpassen, solltest du den Namen geändert haben.

Private Sub UserForm_Initialize()

TextBox1.Value = Date

End Sub