Convert Image to Byte

Public Function GetImage() As Byte()
Dim B() As Byte
Dim srcFile As String

' /* Change This To your File */
srcFile = "c:\unit73.jpeg"

Open srcFile For Binary Access Read As #1
ReDim B(LOF(1) - 1)
Get #1, , B
Close #1

GetImage = B

End Function