Cioè tramite richiesta con un inputbox!

Ho scritto così:

codice:
Private Sub Command1_Click()
Dim newdata As Date
newdata = InputBox("Inserisci nuova data", "Inserimento dati")
Label3.Caption = newdata
MsgBox "Data modificata!", vbInformation, "Attenzione!"
End Sub

Questa procedura può andar bene? Oppure esistono modi + idonei o efficienti?