Dim Image As Image = Image.FromFile("C:\...\xxx.JPG")
  Dim propItem As Object
  Dim strDate, strDate1, strDate2 As String 
 
  propItem = Image.GetPropertyItem(36867) 
             ' 36867 ("DateTimeOriginal") = ID des abzurufenden 
             ' Eigenschaftenelements                                                                     
  strDate = System.Text.Encoding.Default.GetString(propitem.Value, 0, _
    propitem.Len - 1)
 
  strDate2= strDate.Substring(strDate.IndexOf(" "), (strDate.Length - _
    strDate.IndexOf(" ")))
  strDate1 = strDate.Substring(0, 10)
  strDate1 = strDate1.Replace(":", "-")
  tb1.Text = DateTime.Parse(strDate1 + strDate2)