har gjort ett sådant fär länge sen i VB men har totalt glömt bort det och kan inte hitta det så jag hoppas ni kan svara snabbt och bra (som alltid förstås :)

Om jag har en adress som är typ http://www.domän.se/hej/du/trevlig.asp?vad=234234

en jag vill bara ha http://www.domän.se

Dim str, n
dim sajt

str = "http://www.domän.se/hej/du/trevlig.asp?vad=234234"
n = Instr(1,str,"//") + 2
n = Instr(n,str,"/")

sajt = Left(str,n)

/Ola