Dim time As String = "thu, 11 Jun 2009 3:50pm CEST "
 
        Dim dateT As New DateTime
        dateT = DateTime.Parse(time.Substring(5, 18), New _
          System.Globalization.CultureInfo("de-de"))
        dateT = dateT.AddHours(2)
        TextBox1.Text = dateT.ToString