Dim datadritta As String = comunica.Text
Dim format As String = "dd/mm/yyyy"
Dim result As DateTime = DateTime.ParseExact(datadritta, format, System.Globalization.CultureInfo.InvariantCulture)