Problema con el carácter Unicode al usar VBA en MS Access para descargar un código QR desde Google.

Estoy tratando de descargar el código QR para mis productos utilizando googleapis.com, estoy utilizando este código en el módulo llamado: modHtthGet:

Public Sub httpGet(sourcePath As String, destinationPath As String)

Dim xmlHTTP
Dim contents
Dim oStr

Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
xmlHTTP.Open "GET", sourcePath, False
xmlHTTP.Send
contents = xmlHTTP.ResponseBody

Set oStr = CreateObject("ADODB.Stream")
oStr.Mode = adModeReadWrite
oStr.Type = adTypeBinary
oStr.Open

oStr.Write (contents)
oStr.SaveToFile destinationPath, adSaveCreateOverwrite

End Sub

luego lo llamo desde mi formulario utilizando el siguiente código:

Private Sub Command53_Click()

httpGet "https://chart.googleapis.com/chart?cht=qr&chs=150x150&choe=UTF-8&chld=L&chl=" & 
Me.Pro, _
"C:\CarpetaParaDescargar\" & Me.Código_de_Producto & ".jpg"

End Sub

eso descargará el código QR a la carpeta, todo va bien, pero si el Código_de_Producto contiene caracteres árabes, obtengo un código QR vacío o incorrecto.

He intentado muchas formas de resolver el problema pero no puedo, espero que alguien pueda ayudar…

Gracias de antemano.