Dim i, j, k As Integer
Set obj = objIE.document.GetElementsByTagName("option")
    For i = 1 To UBound(UF) ' Vetor de unidades da federação
        For Each el In obj
            If el.innerText = UF(i) Then
                el.Selected = True
                el.Focus
                el.FireEvent ("onchange")
                el.FireEvent ("onselect")
                el.FireEvent ("onload")
                el.FireEvent ("onmouseleave")
                el.FireEvent ("onactivate")
                el.FireEvent ("onclick")
                el.FireEvent ("onfocusin")
                el.FireEvent ("onfocusout")
                el.FireEvent ("oninput")
                el.FireEvent ("onloadedmetadata")
                el.FireEvent ("onplay")
                el.FireEvent ("onsubmit")
                el.Click
                MsgBox "Ok"
                Exit For
                End If
        Next el

        For j = 1 To UBound(Rede) ' Vetor do tipo de rede de ensino
            For Each el In obj
                If el.innerText = Rede(j) Then
                    el.Selected = True
                    el.setCapture
                    Exit For
                    End If
            Next el

            For k = 1 To UBound(Localização) ' Vetor da localização da unidade de ensino
                For Each el In obj
                    If el.innerText = Localização(k) Then
                        el.Selected = True
                        el.Focus
                        el.FireEvent ("onchange")
                        el.FireEvent ("onselect")
                        el.FireEvent ("onload")
                        el.FireEvent ("onmouseleave")
                        el.FireEvent ("onactivate")
                        el.FireEvent ("onclick")
                        el.FireEvent ("onfocusin")
                        el.FireEvent ("onfocusout")
                        el.FireEvent ("oninput")
                        el.FireEvent ("onloadedmetadata")
                        el.FireEvent ("onplay")
                        el.FireEvent ("onsubmit")
                        el.FireEvent ("onmouseleave")
                        el.Click
                        'objIE.Refresh2
                        Exit For
                    End If
                Next el
            Next k
        Next j
    Next i