Porzione di stringa

[puffetto]

Ciao a tutti .
Come posso ricavare la porzione di un url a sinistra dell'ultima "/"?
es:
http://www.ilsito.com/directory/subd....htm?id=897776

a me servirebbe ricavare:
http://www.ilsito.com/directory/subd...ubsubdirectory

grazie1000

[Lak3d]

str = "http://www.ilsito.com/directory/subdirectory/subsubdirectory/pippo.htm?id=897776"
str = Mid(str, 1, InStrRev(str, "/") - 1)

[puffetto]

grazie1000
per l'aiuto