Invece semplicemente:

Private Sub cmdProva_Click()
txtText.Text = DateTime.Now
End Sub

ciao...