Create .zip file VB.Net

Imports System.IO
Imports System.IO.Compression
Public Class Form1
    ''' <summary>
    ''' https://docs.microsoft.com/en-us/dotnet/api/system.io.compression.ziparchive?view=net-5.0
    ''' nuget library System.IO.Compression, System.IO.Compression.ZipFile (v 4.0.0), minimum ----> .net framework 4.5
    ''' nuget library System.IO.Compression, System.IO.Compression.ZipFile (v 4.3.0), minimum ----> .net framework 4.6
    ''' </summary>
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim inputFile As String = "D:\test\500000 Sales Records.csv"
        Dim outputFile As String = "500000 Sales Records.csv"
        Dim outputZip As String = "D:\test\500000 Sales Records.zip"

        Using fs As New FileStream(outputZip, FileMode.OpenOrCreate)
            Using archive As New ZipArchive(fs, ZipArchiveMode.Create)
                archive.CreateEntryFromFile(inputFile, outputFile, CompressionLevel.Optimal)
            End Using
        End Using
    End Sub

End Class