blocSize = 16000
data = envelopedData.Content
position = 1
bloc = "1"
While bloc <> ""
bloc = Mid(data, position, blocSize)
If bloc <> "" Then
Call stream2.Write(util.BinaryStringToByteArray(bloc))
position = position + blocSize
End If
Wend
Call stream2.Close()