Salve. come da oggetto, ho risolto in questo modo "non sarà troppo professionale", ma posso accontentarmi:
In un form ho messo 3 textbox in proprietà visible false e una label dove ho indirizzato il print.
Public Sub Button1_Click()
TextBox1.text = Day(Now)
TextBox2.text = Month(Now)
TextBox3.text = Year(Now)
Label1.Text = TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox4.Text
End
sicuramente ci sarà una forma più professionale.