<WebMethod()> _
    Public Function EnviarArchivo(ByVal buffer As Byte(), ByVal NombreArch As String) As Boolean
        Dim binWriter As BinaryWriter
        Try
            binWriter = New BinaryWriter(File.Open(NombreArch, FileMode.OpenOrCreate, FileAccess.ReadWrite))
            binWriter.Write(buffer)
            binWriter.Close()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function