Help In IE Automation

I am trying automate website login.
I am able to add login value and password value but not able click submit.
Please help me to correct my code

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
 Sub MyGmail()

 Dim MyHTML_Element As IHTMLElement
 Dim MyURL As String
 On Error GoTo Err_Clear
 MyURL = "https://www.mysein.schneider-electric.com/mysedv/login.do"
 Set MyBrowser = New InternetExplorer
 MyBrowser.Silent = True
 MyBrowser.navigate MyURL
 MyBrowser.Visible = True
 Do
 Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
 Set HTMLDoc = MyBrowser.document
 HTMLDoc.all.Login.Value = "user1" 'Enter your email id here
 HTMLDoc.all.Password.Value = "1111" 'Enter your password here
 For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
 If MyHTML_Element.Name = "submit" Then MyHTML_Element.Click: Exit For
 Next
Err_Clear:
 If Err <> 0 Then
 Err.Clear
 Resume Next
 End If
 End Sub

url FOR SOURCE - view-source:https://www.mysein.schneider-electri...ysedv/login.do

PHP Code: 

Sub DemoIE()
    With CreateObject("InternetExplorer.Application")
        .Navigate "https://www.mysein.schneider-electric.com/mysedv/login.do"
        .Visible = True
        While .Busy Or .ReadyState < 4:  DoEvents:  Wend
        With .Document.all
                .login.value = "user1"
             .password.value = "1111"
             .Item(114).onclick
        End With
'        .Quit
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !