Set IE = Nothing
' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
' You can uncoment Next line To see form results
IE.Visible = True

' Send the form data To URL As POST binary request
IE.Navigate "http://mysite/online/"

While IE.Busy Or IE.ReadyState < 4: DoEvents: Wend
IE.Document.getElementsByClassName("classdiv").getElementById(man_4).Click

<a onClick ="javascript:loadGesiC();">
<DIV id="men_4"name="men_4"class="classdiv"onClick="ClMenu('men_4',0)" onMouseOver="SkYn('men_4',1)" onMouseOut="SkYn('men_4',0)" style="top:110;left:0"><img src="/online/images/LK_BODY.gif"align="left"><div style='PADDING-TOP: 4px;'>Gestione Ticket</div></DIV>
</a>