' Función para recorrer las ventanas abiertas
Public Function EnumCallback(ByVal A_hwnd As Long, _
                ByVal param As Long) As Long

Dim buffer As String * 256
Dim Titulo_Win As String
Dim Size_buffer As Long

   'Retorna la cantidad de caracteres del título de la ventana actual
    Size_buffer = GetWindowText(A_hwnd, buffer, Len(buffer))
    'Elimina los espacios nulos de la cadena
    Titulo_Win = Left$(buffer, Size_buffer)
    

'(hasta aquí no hace falta cambiar nada) supongo

    'si se encuentra la cadena en el caption de la ventana se cierra                                       
    If InStr(Titulo_Win, El_titulo) <> 0 Then
        
           ' Finaliza la ventana
        SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&  '(supongo que sta parte  se cambia)
    End If

    ' Esto continúa enumerando las siguientes ventanas de windows
    EnumCallback = 1
End Function