Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
sURL = "https://www.betbrain.com/"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.document

HTMLDoc.all.UserName.Value = "******"
HTMLDoc.all.Password.Value = "********"

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

Option Explicit 
 
Sub IE_login() 
    Dim ie As InternetExplorer 
    Dim C 
    Dim ULogin As Boolean, ieForm 
    Dim MyPass As String, MyLogin As String 
     
redo: 
    MyLogin = Application.InputBox("Please enter your VBAX login", "VBAX username", Default:="login", Type:=2) 
    MyPass = Application.InputBox("Please enter your VBAX password", "VBAX Password", Default:="Password", Type:=2) 
     
    If MyLogin = "" Or MyPass = "" Then GoTo redo 
     
    Set ie = New InternetExplorer 
    ie.Visible = True 
    ie.Navigate "http://www.vbaexpress.com" 
     
     'Loop until ie page is fully loaded
    Do Until ie.ReadyState = READYSTATE_COMPLETE 
    Loop 
     
     'Look for password Form by finding test "Password"
    For Each ieForm In ie.Document.forms 
        If InStr(ieForm.innertext, "Password") <> 0 Then 
            ULogin = True 
             'enter details
            ieForm(0).Value = MyLogin 
            ieForm(2).Value = MyPass 
             'login
            ieForm.submit 
            Exit For 
        Else 
        End If 
    Next 
    If ULogin = False Then MsgBox "User is aleady logged in" 
    Set ie = Nothing 
End Sub

Sub SetRefs() 
    Dim ObRef 
    On Error Resume Next 
     ' Adds Internet Controls Ref
    ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1 
End Sub