File copier VB.Net Exercise - Visual Basic Programming Course

Imports System
Imports System.IO
Public Class FileCopier
    Public Shared Sub Main()
        Const BUFFER_SIZE As Integer = 512 * 1024
        Dim data As Byte() = New Byte(524287) {}
        Dim inFile As FileStream = File.OpenRead("1.exe")
        Dim outFile As FileStream = File.Create("1-copy.exe")
        Dim amountRead As Integer

        Do
            amountRead = inFile.Read(data, 0, BUFFER_SIZE)
            outFile.Write(data, 0, amountRead)
        Loop While amountRead = BUFFER_SIZE

        inFile.Close()
        outFile.Close()
    End Sub
End Class