Dim PhotoData As Byte()
Dim PhotoStream As New MemoryStream
If NewImage Is Nothing Then
    PhotoData = Nothing
Else
    NewImage.Save(PhotoStream, Imaging.ImageFormat.Jpeg)
    PhotoData = PhotoStream.GetBuffer
End If