Private Sub LoginIn()
Dim vTag, vDoc
Dim i As Integer
Set vDoc = Web.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "username"
vTag.Value = "youname"
Case "password"
vTag.Value = "youpassword"
End Select
ElseIf vTag.Type = "submit" And vTag.Name = "Login" Then
vTag.Click
End If
End If
Next i
End Sub