Private Declare Function RemoveDirectory Lib "kernel32.dll" Alias _
    "RemoveDirectoryW" (ByVal lpPathName As String) As Long

RetVal = RemoveDirectory(StrConv("\\?\" & oNodeSub.Text, vbUnicode))
Buffer = Space$(256)
Result = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0, _
    Err.LastDllError, 0&, Buffer, Len(Buffer), ByVal 0)
If RetVal = 0 Then
  Debug.Print Left$(Buffer, Result)
End If