I tried this code:-

Dim myDate As DateTime = DateTime.ParseExact(CType(r.FindControl("txtEvDate"), TextBox).Text(), "dd/MM/yyyy HH:mm", New DateTimeFormatInfo)
CType(r.FindControl("calDate"), System.Web.UI.WebControls.Calendar).SelectedDate = myDate.ToShortDateString