Private Sub CreateFileFromBytes(ByVal sPath As String, ByRef aBytes() As Byte) Dim FF As Integer FF = FreeFile Open sPath For Binary As #FF Put #FF, , aBytes Close #FF End Sub