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