Visual Basic - Eliminar Archivos y Directorios

Hola amigos:

Mi consulta es como hago para eliminar por codigo VB un directorio con los archivos que este contenga, es decir eliminar todos los archivos y luego el directorio.

Crea una funcion en el formulario con este codigo

Sub Borrar(Ruta As String) 'Se crea un procedimiento
On Error GoTo BorrarError
Kill Ruta + "\*.*"
RmDir Ruta

BorrarError:
If Err.Number = 53 Then
RmDir Ruta 'esto fuerza a que el directorio sea eliminado
End If
End Sub

Crea un Command para llamar a la funcion

Private Sub Command1_Click()
Borrar ("nombre carpeta")
End Sub

Espero te sirva el ejemplo