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()
        'a = array mit string werten       
        jpgInplace.SetQuery("System.Keywords", a)
        jpgInplace.TrySave()
        jpgStream.Close()