Sub GO_Click()

Const Url$ = "url_removed"

Dim UserName As String, Password As String, LoginData As Workbook
UserName = "urn"
Password = "Pa$$"

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

With ie

    .navigate Url
    ieBusy ie
    .Visible = True

    Dim oLogin As Object, oPassword As Object
    Set oLogin = .document.getElementsByName("ecp_param_userId")(0)
    Set oPassword = .document.getElementsByName("ecp_param_password")(0)

    oLogin.Value = UserName
    oPassword.Value = Password
    .document.forms(0).submit

End With