Checklistbox File Delete

See more:

VB

My previous question has not been answered correctly and still I have looked for the correct answer to my problem with no luck. My code does not delete the checklistbox item when my scanner finds the file I wish to delete. The item is removed from the checklistbox but the actual file still remains in the computer which defeats my purpose of scanning in the first place.

The delete code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  For i As Integer = CheckedListBox1.CheckedItems.Count - 1 To 0 Step -1
  red = Replace(CheckedListBox1.CheckedItems.Item(i).ToString(),"Threat Found: ","")            
          Try
          System.IO.File.Delete(red)
          If Dir(red)<> "" Then
   MsgBox("Unable to delete"& red, MsgBoxStyle.Critical)
          Else
   MsgBox(String.Format("File {0} successfully deleted", red), MsgBoxStyle.Critical)
   CheckedListBox1.Items.Remove(CheckedListBox1.CheckedItems)
          End If
        Catch ex As Exception
          End Try
        Next
        While CheckedListBox1.CheckedItems.Count > 0
        CheckedListBox1.Items.Remove(CheckedListBox1.CheckedItems(0))
        End While
    End Sub

I figure something small might be missing but to me everything seems fine. Can someone explain or provide a working correction to this code as I have been stuck for some time with no idea what went wrong.