Web login per VBA

Public Sub Main()
Dim objIEx As Object
On Error GoTo Fin
Set objIEx = CreateObject("InternetExplorer.Application")
With objIEx
.Visible = True
.Navigate ("http://fltopsie.air.ups.com/apps/UserLogin/UserLogin.cfm")
Do
If .ReadyState = 4 Then
Exit Do
Else
DoEvents
End If
Loop
.Document.forms(0).All("GemsID").Value = "xyz"
.Document.forms(0).All("Password").Value = "xyz"
.Document.forms(0).Submit
End With
Fin:
Set objIEx = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub