Dim prItems() As PropertyItem        ' массив для хранения свойств картинки типа PropertyItem 
Dim prItem As PropertyItem           ' конкретное свойство картинки 

prItems = img.PropertyItems

for each prItem  in prItems
	Select Case prItem.Type
	    Case  1            ' A Byte 
	        sItems( 5 ) = cnv.ToString(prItem.Value( 0 ))
	    Case  2            ' An array of Byte objects encoded as ASCII 
	        sItems( 5 ) = encoder.GetString(prItem.Value)  ' вот здесь все получается 
	    Case  3            ' A 16-bit integer 
	        sItems( 5 ) = CInt(prItem.Value( 0 ))
	    Case  4            ' A 32-bit integer 
	        sItems( 5 ) = CInt(prItem.Value( 0 ))
	    Case  5            ' An array of two Byte objects that represent a rational number 
	        sItems( 5 ) = prItem.Value( 0 )
	    Case  6            ' Not used 
	        sItems( 5 ) = prItem.Value( 0 )
	    Case  7            ' Undefined 
	        sItems( 5 ) = prItem.Value( 0 )
	    Case  8            ' Not used 
	        sItems( 5 ) = prItem.Value( 0 )
	    Case  9            ' Slong 
	        sItems( 5 ) = prItem.Value( 0 )
	    Case  10           ' SRational 
	        sItems( 5 ) = prItem.Value( 0 )
	End Select
Next