The button does not have an id, so you have to get the element by name, you also need to be able to access the HTMLinputElement Method click from HTML Node as that what is returned by HTMLDocument,getelementsByName.
Add this sub to the HTMLNode class :
'Returns the Node As an HTMLInputElement Object
Public Sub AsHTMLInputElement As HTMLInputElement
Dim E As HTMLInputElement
E.Initialize
E.SetObject(TJO)
Return E
End Sub
Then change your code to :
Dim Elemento As HTMLNode = mDocument.AsHTMLDocument.GetElementsByName("vistaLogin:frmLogin:_id18").Item(0)
If Elemento.IsInitialized Then Elemento.AsHTMLInputElement.Click
If the input is incomplete it will just go round and round reloading the page, so you will need to put some kind of count or trapping in the code just in case.