Dim s As String = "20111231"Dim d As Date = new Date(s.Substring(0,4),s.Substring(4,2),s.Substring(6,2))output.show(d)