Excel - Excel - RFC CALCULATION BY VBA FROM EXCEL TO WEB

Hello, for my work I calculate the homoclave of the RFC, on a public consultation page https://calcularrfc.com.mx/ through a list of names and RFC that I already have in Excel, I have tried to use a macro that performs automatic data entry but the page does not load, I tried it with others and if I managed to do it, I don't know what I could be doing wrong, or if it is the security of the page itself that does not allow it, could you help me, I thank you very much.I leave you the code
1
2
3
4
5
6
7
8
9
10
eleven
12
13
14
fifteen
16
17
18
19
twenty
twenty-one
22
23
24
25
26
27
28
Sub CONSISA ( )
Dim ie As Object
'Set ie = New InternetExplorerMedium
Set ie = CreateObject ( "InternetExplorer . Application" )

i.e. _ navigate "https : //consisa . com . mx/rfc"
i.e. _ Visible = True
Do Until ie . READYSTATE = 4
DoEvents
Loop

Application . Wait ( Now + TimeValue ( " 0:00:01 " ) ) _ _

With ie

. document . getElementById ( "strName" ) . Value = Range ( "A2" ) . value
. document . getElementById ( "strFirstLastName" ) . Value = Range ( "B2" ) . value
. document . getElementById ( "strMiddleLastName" ) . Value = Range ( "C2" ) . value
. document . getElementById ( "strdia" ) . Value = Range ( "G2" ) . value
. document . getElementById ( "strmes" ) . Value = Range ( "F2" ) . value
. document . getElementById ( "stranio" ) . Value = Range ( "E2" ) . value
. document . getElementById ( "rfc_submitted" ) . Click
. Visible = True
End With

Set ie = Nothing

End Sub