Private Sub webBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
webBrowser.Document.all.Item("UserName").Value = "KorisnickoIme"
webBrowser.Document.all.Item("password").Value = "MojaSifra"
End Sub