Sub Belleke()
With CreateObject("InternetExplorer.Application")
.Navigate "http://enter web page here"
Do Until .ReadyState = 4
DoEvents
Loop
DoEvents
ie.Document.Forms(0).all("User").Value = "Balajisx"
ie.Document.Forms(0).all("Password").Value = "password"
ie.Document.Forms(0).submit
End With
End Sub