Как программно нажать на кнопку в браузере черезе VBA

Формулировка задачи:

Здравствуйте знатоки VBA Помогите разобраться в данной проблеме, мучаюсь уже неделю. Есть сайт в локальной сети.

                    Листинг программы
                
<html>
 
<meta http-equiv="Content-Type" content="text/html; charset=IBM866">
 
<title>Протоколы АКОС </title>
 
<link rel="stylesheet" type="text/css" href="/style.css"></head>
 
<body>
 
<h2 align="center">Протоколы АКОС</h2>
 
<form method="POST" ACTION="akos_all.cgi">
 
<table class=datatable width="100%">
 
<tr bgcolor=CCCCFF><td><b>Технологический</b></td><td><b>Аварийный</b></td><td><b>Полный</b></td></tr>
 
<tr valign="Top"><td>
 
<input type=radio name=PROT q
 
<input type=radio name=PROT value=T174559>174559
 
<input type=radio name=PROT value=T174726>174726
 
<input type=radio name=PROT value=T174745>174745
 
<input type=radio name=PROT value=T174752>174752
 
<input type=radio name=PROT value=T174757>174757
 
<input type=radio name=PROT value=T174768>174768
 
<input type=radio name=PROT value=T174778>174778
 
<input type=radio name=PROT value=T174782>174782
 
<input type=radio name=PROT value=T174869>174869
 
<input type=radio name=PROT value=T174871>174871
 
<input type=radio name=PROT value=T174912>174912
 
<input type=radio name=PROT value=T174947>174947
 
<input type=radio name=PROT value=T174959>174959
 
<input type=radio name=PROT value=T345390>345390
 
</td><td>
 
</td><td>
 
</td></tr>
 
</table><br>
 
              <div align="center"> 
 
                <input type="submit" name="Submit" value="Submit">
 
             </div>
 
</form></body></html>

На этом сайте нужно поставить радиоточку (выбрать определенную плавку по номеру), и нажать кнопку Submit Вот что у меня пока есть

                    Листинг программы
                
 
                            
                        
Sub ОбновитьАКП1протокол()
UserForm2.Show 0
s2 = ("C:\Documents and Settings\All Users\VSV\акп1\1.html") 'первая ссылка
UserForm2.WebBrowser2.navigate (s2) 'переходим на ссылку
Do While UserForm2.WebBrowser2.busy Or (UserForm2.WebBrowser2.ReadyState <> 4): DoEvents: Loop ';ждем загрузки страницы
 
UserForm2.WebBrowser2.Document.getelementbyID("PROT").Value.T174559' Не могу понять как поставить точку
'maPage = Click
 
UserForm2.WebBrowser2.Document.forms(0).elements(1).Click' Так получается но нужно по номеру плавки
 
''UserForm2.WebBrowser2.Document.getelementbyID("PROT").Value = (T174552>174552).Checked 'ставим точку проверка 2
 DoEvents
 
UserForm2.WebBrowser2.Document.getelementbyID("Submit").Click 'Жмем на кнопку Это вроде получилось
 
DoEvents 'функция простоя
Do While UserForm2.WebBrowser2.busy Or (UserForm2.WebBrowser2.ReadyState <> 4): DoEvents: Loop
Worksheets("table4").Cells.ClearContents 'удаляем все предыдущие записи на листе table
Worksheets("table4").Range("$a$1") = UserForm2.WebBrowser2.Document
End Sub

Решение задачи: «Как программно нажать на кнопку в браузере черезе VBA»

textual
                            Листинг программы 
                        
 
                        
                          
                    
With UserForm2.WebBrowser2.Document.Forms(0)
     For i = 0 To .Length - 1
         If .Elements(i).Value = "T174757" Then
            .Elements(i).Checked = True
            .Elements("Submit").Click
            Exit For
         End If
     Next
End With