Public Sub Main() Dim fecha1 As Date Dim fechacadena As String fechacadena = "11/25/1978" Print fechacadena fecha1 = Date(fechacadena) Print fecha1 End