Dim Datei As String = "D:\temp\20160828_Tomate\20160828_Canon EOS" & _
          "6D_10486.jpg"
        Dim Aufnahmeatum As String = ""
        Dim enc As Encoding = Encoding.Default
 
        Dim Image As Image = Image.FromFile(Datei)
 
        For Each Info As PropertyItem In Image.PropertyItems
            Select Case Info.Id.ToString("X")
                Case "9003"
                    Aufnahmeatum = enc.GetString(Info.Value, 0, Info.Len - 1)
            End Select
        Next
 
        Image.Dispose()
 
        MessageBox.Show(Aufnahmeatum)

EALA FREYA FRESENA