função pega parte de string usando parametros

Olha eu aqui.... :P

pessoal ha alguns anos fiz uma função para pegar apenas parte das urls.

Hoje queria usar esta função mas não encontrei mais no meu pc, ou melhor no que sobrou dele.

fiz alguns testes , mas não me lembro como buscar determinado caracter para pegar o que vem antes

ex.:

<% url = "http://forum.imasters.com.br/index.php"%>
'retorna o numero de caracteres - no caso [52]
<%= len(url) %><br><br>
'retorna os 7 primeiros caracteres - no caso [http://]
<%= mid(url,1,7) %><br><br>
'retorna os 4 caracteres seguintes - no caso [foru] - (se houvesse www. pegaria [www.])
<%= mid(url,8,4) %><br><br>
Agora o que preciso é verificar a continuação da url neste caso até achar o segundo "."

para poder pegar "forum.imasters"

em outros casos achar o primeiro "." - quando houver www [http://www.uol.com.br]

help please :o