Asistencia para utilizar correctamente Invoke VBScript

Help Activities
, , , , , , , ,
1

Buen día comunidad, tengo un código en lenguaje VB el cual abre y extrae información de años de un calendario web, y la selecciona automáticamente, pero para ello debo de colocar la información dentro de Invoke VBScript ya que también tiene un loop para poder realizar dicha acción. Deseo una asistencia por favor para poder conocer qué información he de colocar y que otro tipo de actividad puedo usar.
El código es el siguiente…
anyoSel = 2023
finalizar = “N”

WHILE ( finalizar = "N" ) :

	htmlCombobox = Extrar el InnerHTML / outerHTML del Combobox Anyo

	finalizar = Ejecutar VBSCRIPT :


		Function validaOpcionAnyo( htmlCombobox as String, anyoSel as Integer ) ] :

			Dim posPrimeraOpcion As Integer
		    Dim posMayor As Integer
		    Dim posMenor As Integer
		    Dim opcioninicial as String
		    Dim opcionIniInt as Integer
		    Dim delta as Integer

		    ' Calcula la primera opcion del combobox
		    posPrimeraOpcion = InStr(htmlCombobox, "<option")
		    posMayor = Instr(posPrimeraOpcion, htmlCombobox, ">")
		    posMenor = Instr(posMayor, htmlCombobox, "<")
		    opcionInicial = Mid(htmlCombobox, posMayor+1, posMenor-posMayor-1)

			opcionIniInt = Cint(opcionInicial)
			delta = anyoSel - opcionIniInt

			IF delta < 0 :
				validaOpcionAnyo = "N"

			ELSE:
				validaOpcionAnyo = "S"

	IF finalizar = "N":
		Seleccionar primera opcion del combobox

	ELSE:
		Hacer comboBoxAnyo = anyoSel
		finalizar = "S"