I would like to delete the folder if the folder exist.. How to do that?

Code:
  Dim FSO As Object
    Set FSO = CreateObject("scripting.filesystemobject")
KrigProjectPath = interpolProjWorkspace + "\" + TxtKrigRasterWorkspace.Text
If FSO.FolderExists(KrigProjectPath) = True Then
     Exit Sub
End If