Problema al cortar cadena...

[meru-kun]

Tengo la siguiente funcion, que se encarga de cortar la cadena desde el caracter especificado a partir del caracter que tu escojas:

Código:

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function

Y luego tengo una variable, txtSite que contiene una URL, y hago esto:
If len(txtSite) > 7 Then
scriptname = cortarHasta(1,txtSite, "/")
txtSite = scriptname
End If

Funciona bien si la variable tiene algo como www.forosdelweb.com/foro/loquesea.htm, opr que me lo deja en www.forosdelweb.com , pero si tengo una del tipo www.forosdelweb.com , me da un error, por que no hay nada que cortar...

¿Como puedo solucionar el error?

[Cauchemar]

es que no encuentra el caracter "/" y el instr se hace la picha un lio

[Mickel]

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = iif(enc>0,left(cadena,enc - 1),cadena)
Else
cortarHasta = cadena
end if
end function

[meru-kun]

Okas. Ya se me soluciono la duda ^^