Dim imageByteArray() As Byte = IO.File.ReadAllBytes(directory & filename & _
   extension)
 
 
                                                Dim appendedString As New _
                                                  StringBuilder( _
                                                  imageByteArray.Length * 2)
                                                For Each part As Byte In _
                                                imageByteArray
                                                    appendedString.Append(part)
                                                Next
 
 
 
                                                MsgBox(appendedString.ToString( _
                                                  ))