codice:
Private Sub txtDataEmis_Change()
   txtGgDataEmis = day(txtDataEmis)
   txtMmDataEmis = month(txtDataEmis)
   txtAaDataEmis = year(txtDataEmis)
End Sub