Cerrar procesos en access actualización 1709

Tengo el siguiente código para cerrar procesos en access, pero desde la actualización de windows 1709, ha dejado de funcionar.

En concreto lo uso para cerrar el teclado virtual "tabtip.exe" en una tablet windows.

¿Alguien tiene alguna solución?

Código:

Function CierraProceso _
( _
StrNombreProceso _
As String, _
Optional _
DecirSINO _
As Boolean = True _
) _
As Boolean

Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoConcreto As Object

CierraProceso = False
Set ObjetoWMI = GetObject("winmgmts:")
If IsNull(ObjetoWMI) = False Then
Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")
For Each ProcesoConcreto In ListaProcesos
If UCase(ProcesoConcreto.Name) = UCase(StrNombreProceso) Then
If DecirSINO Then
If MsgBox("¿Matar el proceso " & _
ProcesoConcreto.Name & vbNewLine & _
"...¿Está seguro?", _
vbYesNo + vbCritical) _
= vbYes Then
ProcesoConcreto.Terminate (1)
CierraProceso = True
End If
Else
ProcesoConcreto.Terminate (1)
CierraProceso = True
End If
End If
Next
Else
'pon aqui un msgbox con el error que se produzca
End If
Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing
End Function