Set objIE = CreateObject("InternetExplorer.Application") 
objIE.Visible = True 
objIE.Navigate "http://smsc.ru/login/" 
Set objForm = objIE.Document.forms( 0 )
objForm.elements("login").value = "MyLogn" 
objForm.elements("psw").value = "MyPass" 
objForm.submit()

Set objIE = CreateObject("InternetExplorer.Application") 
objIE.Visible = True 

objIE.Navigate "http://smsc.ru/login/" 

Do While objIE.Busy 
        i = i+ 1 
Loop 

Do While Not n=i* 10  
        n = n+ 1 
Loop 


Set objForm = objIE.Document.forms( 0 )

objForm.elements("login").value = "MyLogin" 
objForm.elements("psw").value = "MyPass" 


Dim u
Do While Not u=i* 10  
    u = u+ 1 
    HMIRuntime.Trace "u  " & u & vbCrLf 
Loop 

objIE.Document.forms( 0 ).submit()