Try
            IO.Directory.Delete(TextBox1.Text, True)
        Catch ex As UnauthorizedAccessException
            Dim Ordner As New IO.DirectoryInfo(TextBox1.Text)
            Dim file As IO.FileInfo
            For Each file In Ordner.GetFiles("*.*", _
              IO.SearchOption.AllDirectories)
                IO.File.SetAttributes(file.FullName, IO.FileAttributes.Normal)
            Next
            IO.Directory.Delete(TextBox1.Text, True)
            MsgBox("ENDE")
        Catch
        End Try