recuperi l'url e lo metti nella variabile

poi fai così
if instr(1,Url,"?")<> 0 then
'vuol dire che ha anche dei parametri quindi
SITO = Mid(Url,1,instr(1,Url,"?")-1)
else
'non ci sono parametri
SITO = URL
end if