Picture1.Picture

InputBinaryFile = "C:\Temp\test.jpg" 
OutPutTextFile = "C:\Temp\test2.txt" 
textBase64="" 
 
call BinaryFile_to_Base64String 
call Base64_to_TextFile 
 
sub BinaryFile_to_Base64String 
Set objStream = CreateObject("ADODB.Stream") 
objStream.Type = 1 ' TypeBinary 
objStream.Open() 
objStream.LoadFromFile(InputBinaryFile) 
readBytes = objStream.Read() 
Set objXML = CreateObject("MSXml2.DOMDocument") 
objXML.loadXML "<Base64Data />" 
Set objDocElem = objXML.documentElement 
objDocElem.dataType = "bin.base64" 
objDocElem.nodeTypedValue = readBytes 
textBase64 = objDocElem.text 
end sub 
 
sub Base64_to_TextFile 
Set objStream = CreateObject("ADODB.Stream") 
objStream.Type = 2 ' TypeText 
objStream.Open() 
objStream.writetext textBase64 
objStream.SaveToFile OutPutTextFile,2 
end sub

InputTextFile = "C:\Temp\test2.txt" 
OutPutBinaryFile = "C:\Temp\test2.jpg" 
textBase64="" 
 
call TextFileBase64_to_Base64string 
call textBase64_to_BinaryFile 
 
sub TextFileBase64_to_Base64string 
Set objStream = CreateObject("ADODB.Stream") 
objStream.Type = 2 ' TypeText 
objStream.Open() 
objStream.LoadFromFile(InputTextFile) 
textBase64 = objStream.ReadText() 
end sub 
 
Sub textBase64_to_BinaryFile 
Set objXML = CreateObject("MSXml2.DOMDocument") 
Set objDocElem = objXML.createElement("tmp") 
objDocElem.DataType = "bin.base64" 
objDocElem.text = textBase64 
writeBytes = objDocElem.NodeTypedValue 
Set objStream = CreateObject("ADODB.Stream") 
objStream.Type = 1 ' TypeBinary 
objStream.Open() 
objStream.Write writeBytes 
objStream.SaveToFile OutPutBinaryFile, 2 
end sub

Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicBits() As Byte, PicInfo As BITMAP
Dim Cnt As Long, BytesPerLine As Long
Private Sub Command1_Click()
       'Get information (such as height and width) about the picturebox
    GetObject Picture1, Len(PicInfo), PicInfo
    'reallocate storage space
    BytesPerLine = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC
    ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight * 3) As Byte
    'Copy the bitmapbits to the array
    GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
    SetBitmapBits Picture2.Image, UBound(PicBits), PicBits(1)
  
End Sub