How about one of the following:
<font face=Courier New><SPAN style="color:darkblue">Public</SPAN> <SPAN style="color:darkblue">Declare</SPAN> <SPAN style="color:darkblue">Function</SPAN> ShowWindow& <SPAN style="color:darkblue">Lib</SPAN> "user32" _
(<SPAN style="color:darkblue">ByVal</SPAN> hwnd <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>, <SPAN style="color:darkblue">ByVal</SPAN> nCmdShow <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Integer</SPAN>)
<SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Sub</SPAN> LoginMrExcel()
<SPAN style="color:darkblue">Dim</SPAN> ie <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
<SPAN style="color:darkblue">On</SPAN> <SPAN style="color:darkblue">Error</SPAN> <SPAN style="color:darkblue">GoTo</SPAN> 1
<SPAN style="color:darkblue">Set</SPAN> ie = CreateObject("InternetExplorer.Application")
<SPAN style="color:darkblue">With</SPAN> ie
.navigate "http://www.mrexcel.com/board2/login.php"
<SPAN style="color:darkblue">Do</SPAN> <SPAN style="color:darkblue">While</SPAN> .busy: DoEvents: <SPAN style="color:darkblue">Loop</SPAN>
<SPAN style="color:darkblue">Do</SPAN> <SPAN style="color:darkblue">While</SPAN> .ReadyState <> 4: DoEvents: <SPAN style="color:darkblue">Loop</SPAN>
<SPAN style="color:darkblue">With</SPAN> .Document.Forms(0)
.UserName.Value = "Mr. Excel Login Name"
.password.Value = "Respective Password"
.login.Click
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">With</SPAN>
<SPAN style="color:darkblue">Do</SPAN> <SPAN style="color:darkblue">While</SPAN> <SPAN style="color:darkblue">Not</SPAN> <SPAN style="color:darkblue">CBool</SPAN>(InStrB(1, .Document.url, "index.php"))
DoEvents: <SPAN style="color:darkblue">Loop</SPAN>
<SPAN style="color:darkblue">Call</SPAN> ShowWindow(.hwnd, 3) <SPAN style="color:green">'Maximize</SPAN>
.Visible = <SPAN style="color:darkblue">True</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">With</SPAN>
<SPAN style="color:darkblue">Set</SPAN> ie = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">Exit</SPAN> <SPAN style="color:darkblue">Sub</SPAN>
1: MsgBox "Unexpected <SPAN style="color:darkblue">Error</SPAN>, sorry."
ie.Quit
<SPAN style="color:darkblue">Set</SPAN> ie = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN>
<SPAN style="color:darkblue">Sub</SPAN> test()
<SPAN style="color:darkblue">Dim</SPAN> WScript <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
<SPAN style="color:darkblue">Set</SPAN> WScript = CreateObject("WScript.Shell")
WScript.Run "IExplore.exe http://www.mrexcel.com"
<SPAN style="color:darkblue">Set</SPAN> WScript = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>