Нажать кнопку на форме HTML через WebBrowser

WebBrowser1.navigate "registertp.com.ua"
Dim HIE As HTMLInputElement
Dim HTML As HTMLDocument
Set HTML = Form1.WebBrowser1.document
For Each HIE In HTML.getElementsByTagName("input")
  If HIE.Name = "FIO" Then HIE.Value = "My FIO"
  If HIE.Name = "a2" Then HIE.Click
next

Private Sub Command1_Click()
   Dim URL As String
   Dim Flags As Long
   Dim TargetFrame As String
   Dim PostData() As Byte
   Dim Headers As String
 
   URL = "http://registertp.com.ua/index.php" ' A URL that will accept a POST
   Flags = 0
   TargetFrame = ""
 
   PostData = "a1=1&year=2012&CertNum=1234567&CertPIN=1234"
 
   ' VB creates a Unicode string by default so we need to
   ' convert it back to Single byte character set.
   PostData = StrConv(PostData, vbFromUnicode)
 
   Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
   WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers
End Sub

PostData = "a2=1&FIO=Коваленко Віктор Вікторович"

Option Explicit
 
Private Sub Form_Load()
WebBrowser1.Navigate "registertp.com.ua"
End Sub
 
Private Sub Command1_Click()
WebBrowser1.Document.Forms(0).All("CertNum").Value = "1234567"
WebBrowser1.Document.Forms(0).All("CertPIN").Value = "123"
WebBrowser1.Document.Forms(0).submit
End Sub

With Form1.WebBrowser1.document.Forms(1)
    .All("FIO").Value = "Êîâàëåíêî ³êòîð ³êòîðîâè÷"
    .submit
End With

Set HTML = Form1.WebBrowser1.document.Forms(1)
HTML.All("FIO").Value = "Êîâàëåíêî ³êòîð ³êòîðîâè÷"
HTML.submit