select vba 网页 翻页_使用vba从网页的下拉列表中选择值

On this site I am able to select the country and language from dropdown menu but when I click on "Complete new application form" button. It says fields are empty.

Any help would be appreciated.

Sub Test()

strURL = "https://visa.kdmid.ru/PetitionChoice.aspx"

With ie

.Visible = True

.navigate strURL

While .Busy

DoEvents

Wend

Set html = .document

'Country where you will apply for visa.

Set ctY = html.getElementById("ctl00$phBody$Country")

For i = 1 To ctY.Options.Length

If ctY.Options(i).Text = "NETHERLANDS" Then

ctY.selectedIndex = i

Exit For

End If

Next i

'Select Language

Set lnG = html.getElementById("ctl00$phBody$ddlLanguage")

For i = 1