How to Read image from open file dialog in byte array

Dim GImage As Byte()
ReDim GImage(OpenFileDialog1.OpenFile.Length)
OpenFileDialog1.OpenFile.Read(GImage, 0, GImage.Length)