How to uncheck the checkbox in VBA

See more:

VBA

I am trying to write a function to uncheck the four filters within one hidden dropdown list, automatically the pages loads with the filters checked; below is the source code

<select id="CaseStatus" class="filter dropcheck" dispWidth="167" chk="A"  multiplestyle="display:none">

          <option value="0,1">PreSale</option>
          <option value="2,3,4">Running</option>
          <option value="5">Sold</option>
          <option value="6">Canceled</option>

I have tried almost ever example within Google, please help
this is what I have so far

Do
DoEvents
Loop Until MyBrowser.readyState = 4
Set optCollections = HTMLDoc.getElementsByTagName("option")
For Each opts In optCollections
If opts.innerText = "PreSale" Then
opts.Selected = True
End If
If opts.innerText = "Running" Then
opts.Selected = True
End If
If opts.innerText = "Sold" Then
opts.Selected = False
End If
If opts.innerText = "Canceled" Then
opts.Selected = False
HTMLDoc.all.testBut.Click
Exit For
End If
Next

Thank you