Hi,
could you help me, plese:
 I have a code,whitch makes autologin. But this code is function only once by run. Twice and more is runtime error 91.

Here is my code:
Private Sub Main()
Dim ie As Object

Dim adresa

adresa = "http://px2.xchat.centrum.cz/~guest~/modchat?op=homepage" 'url,where is login form
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate adresa

Do While ie.Busy
DoEvents
Loop

ie.Visible = True

ie.Document.All("u_name").Value = "a_nick" 'without this line of code makes always

'Me.Hide
Set ie = Nothing

End Sub

error 91 is "Object variable or With block variable not set ", in your code there are only two objects thate are used: ie (from CreateObject) and ie.Document
The only way to know what is happening is to debug the code. Put a breakpoint at the beginning of Main, start with a full compile (Ctrl+F5) and when the debugger stops at the breakpoint step through your code line by line using F8

Marco

Thanks.A man help me whit this, here repir code:

Option Explicit

Sub main()

    Dim n

    For n = 1 To 2
        Call doh
    Next

End Sub

Sub doh()

    Dim ie As Object

    Dim adresa

    adresa = "http://px2.xchat.centrum.cz/~guest~/modchat?op=homepage" 'url,where is login form
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate adresa

    Do While ie.READYSTATE <> 4
        DoEvents
    Loop

    ie.Visible = True

    ie.Document.All("u_name").Value = "a_nick" 'without this line of code makes always

    Set ie = Nothing

End Sub