Visual Basic - Error URGENTE

Tengo el siguente bucle para cerrar una tarea del administrador de tareas:
do hwnd
HWNDAUX = hwnd
sTitulo = String$(255, " ")
rect = GetWindowText(HWNDAUX, sTitulo, Len(sTitulo))
sTitulo = Mid(sTitulo, 1, rect)
hwnd = GetWindow(hwnd, GW_HWNDNEXT)

bElimina = sTitulo = "Microsoft Excel" Or InStr(sTitulo, sArchivoExcelAbierto) > 0
If bElimina Then
rect = PostMessage(HWNDAUX, WM_DESTROY, 0, 0)
End If
loop


HWNDAUX y hwnd contine la dirección donde se encuentra el Excel
sTitulo contine el titulo de la sesión a cerrar (Excel)

y al utilizar la API PostMessage(HWNDAUX, WM_DESTROY, 0, 0) me da el mensaje:"La aplicación ha realizado una operación errónea"

Alguien podria decirme que estoy haciendo mal o como puedo evitar que me salga el mensaje de Error?

Gracias de antemano.