Dim jpgStream As New System.IO.FileStream(bild_pfad, FileMode.Open, _
  FileAccess.ReadWrite, FileShare.ReadWrite)
Dim jpgDecoder As New JpegBitmapDecoder(jpgStream, _
BitmapCreateOptions.PreservePixelFormat, BitmapCacheOption.Default)
Dim jpgFrame As BitmapFrame = jpgDecoder.Frames(0)
Dim jpgInplace As InPlaceBitmapMetadataWriter = _
  jpgFrame.CreateInPlaceBitmapMetadataWriter()
' MsgBox(jpgInplace.Keywords.Item(0)) Testausgabe
jpgStream.Close()