Sub Test()

  Dim DelFolder
     DelFolder= "C:\My Documents\New
     '削除したいフォルダのパス

    RmDir DelFolder
    'フォルダを削除

End Sub

指定したフォルダ内にファイルが存在していると、エラーが発生します。フォルダを削除する前に、Kill ステートメントを使用してすべてのファイルを削除してください。