Eliminar Directorios Visual Basic.Net

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Creamos un array para almacenar todos los directorios en C:
Dim vectores() As String = Directory.GetDirectories("C:\")
Dim i As Integer

'Mientras el largo del vector sea menor a i, va almacenar los directorios en el array
While i <>

'Aquí es donde se guardan los elementos del vector
Me.RichTextBox1.Text = vectores.GetValue(i)
i = i + 1

'Elimina el elemento, si coincide con lo de RichBox, en este caso "C:\Borrar"
If Me.RichTextBox1.Text = "C:\Borrar" Then

Try

SendKeys.Send("s")
My.Computer.FileSystem.DeleteDirectory("C:\Borrar", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Catch ex As Exception

MsgBox("No se ha podido borrar el archivo")

End Try

Else

End If

End While

End Sub

End Class