Правильное построение кода программы очистки кэша браузеров

 Sub quick_del()
        Dim file(11) As String
        ProgressBar1.Maximum = 11
        file(1) = google_cache
        file(2) = google_application_cache
        file(3) = google_gpucache
        file(4) = google_media_cache
        file(5) = opera
        file(6) = mozilla
        file(7) = local_temp
        file(8) = windows_temp
        file(9) = windows_update
        file(10) = windows_rescache
        file(11) = microsoft_office
        For i = 1 To 11
            ProgressBar1.Value = i
            If System.IO.Directory.Exists(file(i)) Then
                For Each quick_del_for As String In System.IO.Directory.GetFiles(file(i), "*.*", IO.SearchOption.AllDirectories)
                    Try
                        System.IO.File.Delete(quick_del_for)
                    Catch ex As Exception
                    End Try
                Next
            End If
        Next
        Dim t_getsize As get_size_d = New get_size_d(AddressOf get_size)
        t_getsize.Invoke()
        ProgressBar1.Value = 0
        MessageBox.Show("Быстрое удаление завершено!", "EasyCleanYourPC", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

 Dim opera As String = System.Environment.GetFolderPath( _
        Environment.SpecialFolder.LocalApplicationData) & "\opera software"

  Dim t_quick_del As quick_del_d = New quick_del_d(AddressOf quick_del)
            t_quick_del.Invoke()

Dim file() As String = _
    { _
        google_cache, _
        google_application_cache, _
        google_gpucache, _
        google_media_cache, _
        opera, _
        mozilla, _
        local_temp, _
        windows_temp, _
        windows_update, _
        windows_rescache, _
        microsoft_office _  
    }
ProgressBar1.Maximum = file.Length
For i = 0 To file.Length-1
    ProgressBar1.Value = i + 1

Dim opera As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "opera software")