Dim s As String = "D:20110303121749+01'00'"
        Dim format As String = "D:yyyyMMddHHmmsszzz:"
        Dim dateValue As Date
 
        s = s.Replace("'", ":")
        dateValue = Date.ParseExact(s, format, _
          Globalization.CultureInfo.InvariantCulture)