AL = 0

K1 = 0



For Each ele In WebBrowser.Document.all

 If ele.ID = "Us_SinifSubeTurAlanDal1_ddlSinifSube" Then

    A1 = (ele.selectedindex) + 1

 End If

Next

AL = 0

For Each ele In WebBrowser.Document.all

If ele.ID = "Us_SinifSubeTurAlanDal1_ddlSinifSube" Then AL = 1

If AL = 1 Then

   If ele.tagname = "OPTION" Then

      K1 = K1 + 1

      If K1 = A1 Then Me.Sinifi = ele.innertext: AL = 0

   End If

End If

Next

@ozanakkaya, bu şekilde verdiğiniz kodu yazınca sınıfı alıyor, tamamdır.