Public Sub Clear() 

public void Clear()

using (TempFile temp = new TempFile())
{
    byte[] sample = new byte[1024];
    new Random().NextBytes(sample);
    List<uint> handles = new List<uint>();
    using (TransactedCompoundFile file = new TransactedCompoundFile(temp.TempPath))
    {
        for (int i = 0; i < 100; i++)
        {
            var hid = file.Create();
            handles.Add(hid);
            file.Write(hid, sample, i, sample.Length - i);
            CompareBytes(sample, i, sample.Length - i, IOStream.ReadAllBytes(file.Read(hid)));
            file.Commit();
        }
        file.Clear();
        for (int i = 0; i < 100; i++)
        {
            try
            {
                IOStream.ReadAllBytes(file.Read(handles[i]));
                Assert.Fail();
            }
            catch (ArgumentOutOfRangeException) { }
        }
    }
}

Using temp As New TempFile()
    Dim sample As Byte() = New Byte(1024) {}
    New Random().NextBytes(sample)
    Dim [handles] As New List(Of UInteger)()
    Using file As New TransactedCompoundFile(temp.TempPath)
        Dim i As Integer = 0
        While i < 100
            Dim hid As var = file.Create()
            [handles].Add(hid)
            file.Write(hid, sample, i, sample.Length - i)
            CompareBytes(sample, i, sample.Length - i, IOStream.ReadAllBytes(file.Read(hid)))
            file.Commit()
            System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
        End While
        file.Clear()
        Dim i As Integer = 0
        While i < 100
            Try
                IOStream.ReadAllBytes(file.Read([handles](i)))
                Assert.Fail()
            Catch generatedExceptionName As ArgumentOutOfRangeException
            End Try
            System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
        End While
    End Using
End Using