Base64 To JPG Possible?

This code convert jpg to base64. Well base64 to jpg convert possible?

Code:

Public Function EncodeFile(strPicPath As String) As String
Const adTypeBinary = 1 ' Binary file is encoded
' Variables for encoding Dim objXML Dim objDocElem
' Variable for reading binary picture Dim objStream
' Open data stream from picture
Set objStream = CreateObject("ADODB.Stream")

[Code] ........